home *** CD-ROM | disk | FTP | other *** search
| AmigaOS Executable | 1998-02-05 | 15.7 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: AmigaOS Executable
(executable/amigaExe).
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| AmigaOS Executable (executable/amigaExe)
| magic
| Unsupported |
| 100%
| file
| AmigaOS loadseg()ble executable/binary
| default
| |
| 99%
| file
| Adobe Photoshop Color swatch, version 0, 1011 colors; 1st RGB space (0), w 0, x 0, y 0x2, z 0 ; 2nd RGB space (0), w 0, x 0x1, y 0, z 0x6f
| default (weak)
| |
| 98%
| file
| data
| default
| |
| 57%
| TrID
| Amiga Hunk executable
| default
| |
| 42%
| TrID
| Matlab Level 4 MAT-File (big-endian)
| default (weak)
| |
| 100%
| detectItEasy
| Format: Amiga loadable file
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 03 f3 00 00 00 00 | 00 00 00 02 00 00 00 00 |........|........|
|00000010| 00 00 00 01 00 00 00 6f | 00 00 0f 26 00 00 03 e9 |.......o|...&....|
|00000020| 00 00 00 6f 48 e7 3f 3e | 24 00 26 48 28 4f 20 02 |...oH.?>|$.&H(O .|
|00000030| 5e 40 02 80 ff ff ff fe | 9f c0 24 4f 22 4a 20 0b |^@......|..$O"J .|
|00000040| 67 20 70 20 72 09 74 0a | 16 1b 67 16 b6 02 67 12 |g p r.t.|..g...g.|
|00000050| b6 00 67 f4 b6 01 67 f0 | 12 c3 16 1b 67 04 b6 02 |..g...g.|....g...|
|00000060| 66 f6 42 11 b5 c9 67 08 | b0 21 67 f6 b2 11 67 f2 |f.B...g.|.!g...g.|
|00000070| 7e 14 2c 78 00 04 61 00 | 00 de 4a 80 67 00 00 aa |~.,x..a.|..J.g...|
|00000080| 2a 40 43 f9 00 00 01 1a | 4e ae fe 7a 4a 80 67 00 |*@C.....|N..zJ.g.|
|00000090| 00 92 43 f9 00 00 01 1f | 70 00 4e ae fd d8 4a 80 |..C.....|p.N...J.|
|000000a0| 67 00 00 80 2c 00 cd 8e | 20 4d 93 c9 70 00 4e ae |g...,...| M..p.N.|
|000000b0| ff 70 67 68 26 48 27 7c | 00 00 00 00 00 28 27 4a |.pgh&H'||.....('J|
|000000c0| 00 2c 70 02 72 00 4e ae | ff 5e 67 46 cd 8e 27 7c |.,p.r.N.|.^gF..'||
|000000d0| 02 04 00 01 00 1c 4e ae | ff 7c 43 f9 00 00 01 1a |......N.|.|C.....|
|000000e0| 4e ae fe 7a 2a 00 67 08 | 20 40 22 4b 4e ae fe 92 |N..z*.g.| @"KN...|
|000000f0| 4e ae ff 76 4a 85 67 0e | 20 4d 4e ae fe 80 20 4d |N..vJ.g.| MN... M|
|00000100| 4e ae fe 8c 7e 00 cd 8e | 20 4b 70 02 4e ae ff 64 |N...~...| Kp.N..d|
|00000110| cd 8e cd 8e 20 4b 4e ae | ff 6a cd 8e 22 46 4e ae |.... KN.|.j.."FN.|
|00000120| fe 62 20 4d 61 00 00 8c | 20 07 2e 4c 4c df 7c fc |.b Ma...| ..LL.|.|
|00000130| 4e 75 00 00 00 00 00 00 | 00 00 00 00 00 00 52 45 |Nu......|......RE|
|00000140| 58 58 00 72 65 78 78 73 | 79 73 6c 69 62 2e 6c 69 |XX.rexxs|yslib.li|
|00000150| 62 72 61 72 79 00 48 e7 | 20 22 2c 78 00 04 70 ff |brary.H.| ",x..p.|
|00000160| 4e ae fe b6 74 ff b4 00 | 67 40 24 00 70 22 22 3c |N...t...|g@$.p""<|
|00000170| 00 01 00 01 4e ae ff 3a | 4a 80 67 28 24 40 15 7c |....N..:|J.g($@.||
|00000180| 00 04 00 08 15 42 00 0f | 93 c9 4e ae fe da 25 40 |.....B..|..N...%@|
|00000190| 00 10 41 ea 00 14 25 48 | 00 1c 43 ea 00 18 20 89 |..A...%H|..C... .|
|000001a0| 20 0a 60 08 20 02 4e ae | fe b0 70 00 4c df 44 04 | .`. .N.|..p.L.D.|
|000001b0| 4e 75 48 e7 00 22 24 48 | 2c 78 00 04 70 ff 15 40 |NuH.."$H|,x..p..@|
|000001c0| 00 08 25 40 00 14 70 00 | 10 2a 00 0f 4e ae fe b0 |..%@..p.|.*..N...|
|000001d0| 22 4a 70 22 4e ae ff 2e | 4c df 44 00 4e 75 00 00 |"Jp"N...|L.D.Nu..|
|000001e0| 00 00 03 ec 00 00 00 03 | 00 00 00 00 00 00 00 60 |........|.......`|
|000001f0| 00 00 00 70 00 00 00 b8 | 00 00 00 01 00 00 00 01 |...p....|........|
|00000200| 00 00 00 94 00 00 00 00 | 00 00 03 f2 00 00 03 ea |........|........|
|00000210| 00 00 0f 26 2f 2a 0a 24 | 56 45 52 3a 20 47 69 67 |...&/*.$|VER: Gig|
|00000220| 61 47 75 69 64 65 20 31 | 2e 38 20 28 31 39 39 38 |aGuide 1|.8 (1998|
|00000230| 2f 30 32 2f 30 34 29 20 | a9 20 46 69 6e 69 20 27 |/02/04) |. Fini '|
|00000240| 57 61 72 70 27 20 41 6c | 72 69 6e 67 20 2f 20 47 |Warp' Al|ring / G|
|00000250| 69 47 41 20 50 72 6f 64 | 2e 0a 2a 2f 0a 2f 2a 20 |iGA Prod|..*/./* |
|00000260| 43 6f 6d 70 72 65 73 73 | 65 64 20 77 69 74 68 20 |Compress|ed with |
|00000270| 43 6f 6d 70 72 65 73 73 | 52 65 78 78 20 76 33 2e |Compress|Rexx v3.|
|00000280| 30 20 28 43 4d 50 4d 4f | 44 45 20 48 45 41 56 59 |0 (CMPMO|DE HEAVY|
|00000290| 29 2c 20 28 43 29 20 31 | 39 39 33 2d 39 36 20 52 |), (C) 1|993-96 R|
|000002a0| 6f 62 65 72 74 20 48 6f | 66 6d 61 6e 6e 20 2a 2f |obert Ho|fmann */|
|000002b0| 0a 50 61 72 73 65 20 61 | 72 67 20 41 72 67 5f 53 |.Parse a|rg Arg_S|
|000002c0| 74 72 69 6e 67 3b 58 76 | 65 72 3d 27 76 31 2e 38 |tring;Xv|er='v1.8|
|000002d0| 27 3b 4c 61 73 74 75 70 | 3d 27 30 34 2e 46 65 62 |';Lastup|='04.Feb|
|000002e0| 2e 31 39 39 38 27 3b 41 | 75 74 68 6f 72 3d 22 46 |.1998';A|uthor="F|
|000002f0| 69 6e 69 20 27 57 61 72 | 70 27 20 41 6c 72 69 6e |ini 'War|p' Alrin|
|00000300| 67 22 3b 41 72 67 6e 75 | 6d 3d 41 72 67 48 61 6e |g";Argnu|m=ArgHan|
|00000310| 64 6c 65 72 28 41 72 67 | 5f 53 74 72 69 6e 67 29 |dler(Arg|_String)|
|00000320| 3b 54 41 42 3d 27 30 39 | 27 78 3b 4e 4c 3d 27 30 |;TAB='09|'x;NL='0|
|00000330| 61 27 78 3b 6f 70 3d 54 | 41 42 7c 7c 27 20 2d 46 |a'x;op=T|AB||' -F|
|00000340| 20 20 20 3d 20 53 65 74 | 73 20 47 75 69 64 65 20 | = Set|s Guide |
|00000350| 66 6f 6e 74 2e 20 20 28 | 20 2d 46 20 58 45 4e 2e |font. (| -F XEN.|
|00000360| 66 6f 6e 74 20 39 20 29 | 27 7c 7c 4e 4c 20 4e 4c |font 9 )|'||NL NL|
|00000370| 20 54 41 42 3b 6f 70 3d | 6f 70 7c 7c 27 20 2d 56 | TAB;op=|op||' -V|
|00000380| 20 20 20 3d 20 50 61 74 | 68 20 74 6f 20 4d 75 6c | = Pat|h to Mul|
|00000390| 74 69 56 69 65 77 2e 20 | 28 20 2d 56 20 53 79 73 |tiView. |( -V Sys|
|000003a0| 3a 55 74 69 6c 69 74 69 | 65 73 2f 4d 75 6c 74 69 |:Utiliti|es/Multi|
|000003b0| 56 69 65 77 20 29 27 7c | 7c 4e 4c 20 4e 4c 20 54 |View )'|||NL NL T|
|000003c0| 41 42 3b 6f 70 3d 6f 70 | 7c 7c 27 20 2d 55 20 20 |AB;op=op|||' -U |
|000003d0| 20 3d 20 53 65 74 20 75 | 6e 70 61 63 6b 20 64 69 | = Set u|npack di|
|000003e0| 72 2e 20 28 20 2d 55 20 | 44 68 31 3a 44 6f 77 6e |r. ( -U |Dh1:Down|
|000003f0| 6c 6f 61 64 2f 55 6e 70 | 61 63 6b 65 64 2f 20 6f |load/Unp|acked/ o|
|00000400| 72 20 2d 55 20 52 45 51 | 29 27 7c 7c 4e 4c 20 4e |r -U REQ|)'||NL N|
|00000410| 4c 20 54 41 42 3b 6f 70 | 3d 6f 70 7c 7c 27 20 2d |L TAB;op|=op||' -|
|00000420| 4e 20 20 20 3d 20 53 65 | 74 20 74 68 65 20 6d 69 |N = Se|t the mi|
|00000430| 6e 2e 20 6c 65 6e 67 74 | 68 20 6f 66 20 66 69 6c |n. lengt|h of fil|
|00000440| 65 6e 61 6d 65 20 67 61 | 64 67 65 74 73 2e 20 28 |ename ga|dgets. (|
|00000450| 4d 69 6e 2e 20 31 31 29 | 20 28 20 2d 4e 20 31 38 |Min. 11)| ( -N 18|
|00000460| 20 29 27 7c 7c 4e 4c 20 | 4e 4c 20 54 41 42 3b 6f | )'||NL |NL TAB;o|
|00000470| 70 3d 6f 70 7c 7c 27 20 | 2d 53 20 20 20 3d 20 53 |p=op||' |-S = S|
|00000480| 65 74 20 74 68 65 20 6d | 69 6e 2e 20 6c 65 6e 67 |et the m|in. leng|
|00000490| 74 68 20 6f 66 20 53 68 | 6f 72 74 3a 20 6e 6f 74 |th of Sh|ort: not|
|000004a0| 65 73 2e 20 28 20 2d 53 | 20 34 30 20 29 27 7c 7c |es. ( -S| 40 )'|||
|000004b0| 4e 4c 20 4e 4c 20 54 41 | 42 3b 6f 70 3d 6f 70 7c |NL NL TA|B;op=op||
|000004c0| 7c 27 20 2d 43 20 20 20 | 3d 20 41 64 64 20 53 68 ||' -C |= Add Sh|
|000004d0| 6f 72 74 3a 2d 6c 69 6e | 65 73 20 69 6e 74 6f 20 |ort:-lin|es into |
|000004e0| 66 69 6c 65 63 6f 6d 6d | 65 6e 74 2c 20 6f 66 20 |filecomm|ent, of |
|000004f0| 74 68 65 20 61 72 63 68 | 69 65 76 65 2e 27 7c 7c |the arch|ieve.'|||
|00000500| 4e 4c 20 4e 4c 20 54 41 | 42 3b 6f 70 3d 6f 70 7c |NL NL TA|B;op=op||
|00000510| 7c 22 20 2d 47 20 20 20 | 3d 20 44 6f 6e 27 74 20 ||" -G |= Don't |
|00000520| 6d 61 6b 65 20 47 75 69 | 64 65 2c 20 75 73 65 20 |make Gui|de, use |
|00000530| 69 66 20 6f 6e 6c 79 20 | 66 69 6c 65 63 6f 6d 6d |if only |filecomm|
|00000540| 65 6e 74 73 20 61 72 65 | 20 77 61 6e 74 65 64 2e |ents are| wanted.|
|00000550| 20 28 2d 43 29 22 7c 7c | 4e 4c 20 4e 4c 20 54 41 | (-C)"|||NL NL TA|
|00000560| 42 3b 6f 70 3d 6f 70 7c | 7c 27 20 2d 50 20 20 20 |B;op=op|||' -P |
|00000570| 3d 20 50 61 74 68 20 74 | 6f 20 69 6d 61 67 65 20 |= Path t|o image |
|00000580| 76 69 65 77 65 72 2e 20 | 28 20 2d 50 20 43 3a 50 |viewer. |( -P C:P|
|00000590| 50 73 68 6f 77 20 29 27 | 7c 7c 4e 4c 20 4e 4c 20 |Pshow )'|||NL NL |
|000005a0| 54 41 42 3b 6f 70 3d 6f | 70 7c 7c 27 20 2d 53 50 |TAB;op=o|p||' -SP|
|000005b0| 20 20 3d 20 53 6f 75 6e | 64 20 53 61 6d 70 6c 65 | = Soun|d Sample|
|000005c0| 20 70 6c 61 79 65 72 2e | 20 28 2d 53 50 20 43 3a | player.| (-SP C:|
|000005d0| 50 6c 61 79 31 36 29 27 | 7c 7c 4e 4c 20 4e 4c 20 |Play16)'|||NL NL |
|000005e0| 54 41 42 3b 6f 70 3d 6f | 70 7c 7c 27 20 2d 44 20 |TAB;op=o|p||' -D |
|000005f0| 20 20 3d 20 53 65 74 20 | 44 4d 53 20 75 6e 70 61 | = Set |DMS unpa|
|00000600| 63 6b 20 64 65 73 74 69 | 6e 61 74 69 6f 6e 2e 20 |ck desti|nation. |
|00000610| 28 20 2d 44 20 52 41 44 | 3a 20 29 27 7c 7c 4e 4c |( -D RAD|: )'||NL|
|00000620| 20 4e 4c 20 54 41 42 3b | 6f 70 3d 6f 70 7c 7c 27 | NL TAB;|op=op||'|
|00000630| 20 2d 53 4d 20 20 3d 20 | 53 6f 72 74 20 6d 6f 64 | -SM = |Sort mod|
|00000640| 65 2e 20 20 28 2d 53 4d | 20 43 41 53 45 20 6f 72 |e. (-SM| CASE or|
|00000650| 20 2d 53 4d 20 44 41 54 | 45 29 27 7c 7c 4e 4c 20 | -SM DAT|E)'||NL |
|00000660| 4e 4c 20 54 41 42 3b 6f | 70 3d 6f 70 7c 7c 27 20 |NL TAB;o|p=op||' |
|00000670| 2d 4e 53 20 20 3d 20 4e | 6f 20 73 63 72 65 65 6e |-NS = N|o screen|
|00000680| 2c 20 67 75 69 64 65 73 | 20 77 69 6c 6c 20 6f 70 |, guides| will op|
|00000690| 65 6e 20 6f 6e 20 77 6f | 72 6b 62 65 6e 63 68 20 |en on wo|rkbench |
|000006a0| 73 63 72 65 65 6e 2e 27 | 7c 7c 4e 4c 20 4e 4c 20 |screen.'|||NL NL |
|000006b0| 54 41 42 3b 6f 70 3d 6f | 70 7c 7c 22 20 2d 4e 4c |TAB;op=o|p||" -NL|
|000006c0| 20 20 3d 20 44 6f 6e 27 | 74 20 6d 61 6b 65 20 6c | = Don'|t make l|
|000006d0| 69 6e 65 73 70 61 63 65 | 73 20 69 6e 20 74 68 65 |inespace|s in the|
|000006e0| 20 67 75 69 64 65 2e 22 | 7c 7c 4e 4c 20 4e 4c 20 | guide."|||NL NL |
|000006f0| 54 41 42 3b 6f 70 3d 6f | 70 7c 7c 22 20 2d 47 44 |TAB;op=o|p||" -GD|
|00000700| 20 20 3d 20 53 65 74 20 | 47 75 69 64 65 20 44 65 | = Set |Guide De|
|00000710| 73 74 69 6e 61 74 69 6f | 6e 2c 20 66 6f 72 20 43 |stinatio|n, for C|
|00000720| 44 2d 52 4f 4d 27 73 20 | 65 74 63 2e 2e 20 28 2d |D-ROM's |etc.. (-|
|00000730| 47 44 20 52 61 6d 3a 29 | 22 7c 7c 4e 4c 20 4e 4c |GD Ram:)|"||NL NL|
|00000740| 20 54 41 42 3b 6f 70 3d | 6f 70 7c 7c 22 20 2d 58 | TAB;op=|op||" -X|
|00000750| 20 20 20 3d 20 41 74 74 | 65 6d 70 74 20 74 6f 20 | = Att|empt to |
|00000760| 65 78 74 72 61 63 74 20 | 6d 69 73 73 69 6e 67 2f |extract |missing/|
|00000770| 63 6f 72 72 75 70 74 20 | 72 65 61 64 6d 65 27 73 |corrupt |readme's|
|00000780| 20 66 72 6f 6d 20 61 72 | 63 68 69 76 65 73 20 28 | from ar|chives (|
|00000790| 6c 68 61 20 6f 6e 6c 79 | 29 22 7c 7c 4e 4c 20 4e |lha only|)"||NL N|
|000007a0| 4c 20 54 41 42 3b 6f 70 | 3d 6f 70 7c 7c 22 20 2d |L TAB;op|=op||" -|
|000007b0| 4c 5a 58 20 3d 20 55 73 | 65 20 4c 5a 58 20 76 31 |LZX = Us|e LZX v1|
|000007c0| 2e 31 30 72 2b 20 74 6f | 20 64 65 63 6f 6d 70 72 |.10r+ to| decompr|
|000007d0| 65 73 73 20 4c 48 41 2f | 4c 5a 48 20 61 72 63 68 |ess LHA/|LZH arch|
|000007e0| 69 76 65 73 20 32 35 2d | 33 35 25 20 66 61 73 74 |ives 25-|35% fast|
|000007f0| 65 72 21 21 21 22 7c 7c | 4e 4c 20 4e 4c 3b 53 75 |er!!!"|||NL NL;Su|
|00000800| 70 3d 54 41 42 7c 7c 54 | 41 42 20 54 41 42 7c 7c |p=TAB||T|AB TAB|||
|00000810| 27 40 7b 42 7d 53 75 70 | 70 6f 72 74 65 64 20 66 |'@{B}Sup|ported f|
|00000820| 69 6c 65 20 73 75 66 66 | 69 78 65 73 3a 40 7b 55 |ile suff|ixes:@{U|
|00000830| 42 7d 27 7c 7c 4e 4c 20 | 4e 4c 20 54 41 42 3b 53 |B}'||NL |NL TAB;S|
|00000840| 75 70 3d 53 75 70 7c 7c | 27 40 7b 42 7d 41 6d 69 |up=Sup|||'@{B}Ami|
|00000850| 6e 65 74 20 72 65 61 64 | 6d 65 20 66 69 6c 65 73 |net read|me files|
|00000860| 3a 40 7b 55 42 7d 27 7c | 7c 4e 4c 20 4e 4c 20 54 |:@{UB}'|||NL NL T|
|00000870| 41 42 3b 53 75 70 3d 53 | 75 70 7c 7c 54 41 42 7c |AB;Sup=S|up||TAB||
|00000880| 7c 27 2e 72 65 61 64 6d | 65 20 2e 72 65 61 27 7c ||'.readm|e .rea'||
|00000890| 7c 4e 4c 20 54 41 42 3b | 53 75 70 3d 53 75 70 7c ||NL TAB;|Sup=Sup||
|000008a0| 7c 27 40 7b 42 7d 45 78 | 65 63 75 74 61 62 6c 65 ||'@{B}Ex|ecutable|
|000008b0| 73 3a 40 7b 55 42 7d 27 | 7c 7c 4e 4c 20 4e 4c 20 |s:@{UB}'|||NL NL |
|000008c0| 54 41 42 3b 53 75 70 3d | 53 75 70 7c 7c 54 41 42 |TAB;Sup=|Sup||TAB|
|000008d0| 7c 7c 27 2e 65 78 65 20 | 2e 62 61 74 27 7c 7c 4e |||'.exe |.bat'||N|
|000008e0| 4c 20 54 41 42 3b 53 75 | 70 3d 53 75 70 7c 7c 27 |L TAB;Su|p=Sup||'|
|000008f0| 40 7b 42 7d 41 72 63 68 | 69 76 65 73 3a 40 7b 55 |@{B}Arch|ives:@{U|
|00000900| 42 7d 27 7c 7c 4e 4c 20 | 4e 4c 20 54 41 42 3b 53 |B}'||NL |NL TAB;S|
|00000910| 75 70 3d 53 75 70 7c 7c | 54 41 42 7c 7c 27 2e 6c |up=Sup|||TAB||'.l|
|00000920| 68 61 20 2e 6c 7a 68 20 | 2e 6c 7a 78 20 2e 7a 69 |ha .lzh |.lzx .zi|
|00000930| 70 20 2e 64 6d 73 27 7c | 7c 4e 4c 20 54 41 42 3b |p .dms'|||NL TAB;|
|00000940| 53 75 70 3d 53 75 70 7c | 7c 27 40 7b 42 7d 49 6d |Sup=Sup|||'@{B}Im|
|00000950| 61 67 65 73 3a 40 7b 55 | 42 7d 27 7c 7c 4e 4c 20 |ages:@{U|B}'||NL |
|00000960| 4e 4c 20 54 41 42 3b 53 | 75 70 3d 53 75 70 7c 7c |NL TAB;S|up=Sup|||
|00000970| 54 41 42 7c 7c 27 2e 6a | 70 67 20 2e 6a 70 65 67 |TAB||'.j|pg .jpeg|
|00000980| 20 2e 67 69 66 20 2e 70 | 6e 67 20 2e 69 66 66 20 | .gif .p|ng .iff |
|00000990| 2e 69 6c 62 6d 20 2e 68 | 61 6d 20 2e 68 61 6d 38 |.ilbm .h|am .ham8|
|000009a0| 27 7c 7c 4e 4c 20 54 41 | 42 3b 53 75 70 3d 53 75 |'||NL TA|B;Sup=Su|
|000009b0| 70 7c 7c 27 40 7b 42 7d | 54 65 78 74 3a 40 7b 55 |p||'@{B}|Text:@{U|
|000009c0| 42 7d 27 7c 7c 4e 4c 20 | 4e 4c 20 54 41 42 3b 53 |B}'||NL |NL TAB;S|
|000009d0| 75 70 3d 53 75 70 7c 7c | 54 41 42 7c 7c 27 2e 74 |up=Sup|||TAB||'.t|
|000009e0| 78 74 20 2e 74 65 78 74 | 20 2e 67 75 69 64 65 20 |xt .text| .guide |
|000009f0| 2e 6e 66 6f 20 2e 64 69 | 7a 20 2e 64 6f 63 20 2e |.nfo .di|z .doc .|
|00000a00| 64 6f 6b 27 7c 7c 4e 4c | 20 54 41 42 3b 53 75 70 |dok'||NL| TAB;Sup|
|00000a10| 3d 53 75 70 7c 7c 27 40 | 7b 42 7d 53 6f 75 6e 64 |=Sup||'@|{B}Sound|
|00000a20| 3a 40 7b 55 42 7d 27 7c | 7c 4e 4c 20 4e 4c 20 54 |:@{UB}'|||NL NL T|
|00000a30| 41 42 3b 53 75 70 3d 53 | 75 70 7c 7c 54 41 42 7c |AB;Sup=S|up||TAB||
|00000a40| 7c 27 2e 38 73 76 78 20 | 2e 77 61 76 20 2e 73 6e ||'.8svx |.wav .sn|
|00000a50| 64 27 7c 7c 4e 4c 20 4e | 4c 3b 69 66 20 41 72 67 |d'||NL N|L;if Arg|
|00000a60| 6e 75 6d 3d 30 20 74 68 | 65 6e 20 64 6f 3b 53 61 |num=0 th|en do;Sa|
|00000a70| 79 20 27 1b 5b 31 6d 20 | 45 72 72 6f 72 21 20 2d |y '.[1m |Error! -|
|00000a80| 3e 20 59 6f 75 20 6d 75 | 73 74 20 73 70 65 63 69 |> You mu|st speci|
|00000a90| 66 79 20 61 20 64 6f 77 | 6e 6c 6f 61 64 20 64 69 |fy a dow|nload di|
|00000aa0| 72 2e 2e 2e 1b 5b 30 6d | 27 3b 43 61 6c 6c 20 55 |r....[0m|';Call U|
|00000ab0| 73 61 67 65 3b 65 6e 64 | 3b 69 66 20 7e 65 78 69 |sage;end|;if ~exi|
|00000ac0| 73 74 73 28 27 63 3a 44 | 69 72 49 49 27 29 20 74 |sts('c:D|irII') t|
|00000ad0| 68 65 6e 20 64 6f 3b 73 | 61 79 20 27 1b 5b 31 6d |hen do;s|ay '.[1m|
|00000ae0| 20 45 72 72 6f 72 21 20 | 2d 3e 20 43 3a 44 69 72 | Error! |-> C:Dir|
|00000af0| 49 49 20 69 73 20 72 65 | 71 75 69 72 65 64 2c 20 |II is re|quired, |
|00000b00| 74 6f 20 73 74 61 72 74 | 2f 75 73 65 20 47 69 67 |to start|/use Gig|
|00000b10| 61 47 75 69 64 65 2e 27 | 3b 73 61 79 3b 73 61 79 |aGuide.'|;say;say|
|00000b20| 20 27 44 69 72 49 49 20 | 76 33 2e 33 61 2b 20 20 | 'DirII |v3.3a+ |
|00000b30| a9 20 31 39 39 35 20 53 | 2e 44 61 76 69 65 73 20 |. 1995 S|.Davies |
|00000b40| 20 5b 46 72 65 65 77 61 | 72 65 5d 20 2d 20 41 6d | [Freewa|re] - Am|
|00000b50| 69 6e 65 74 3a 70 75 62 | 2f 75 74 69 6c 2f 73 79 |inet:pub|/util/sy|
|00000b60| 73 2f 44 69 72 49 49 2e | 6c 68 61 1b 5b 30 6d 27 |s/DirII.|lha.[0m'|
|00000b70| 3b 43 61 6c 6c 20 55 73 | 61 67 65 3b 65 6e 64 3b |;Call Us|age;end;|
|00000b80| 53 6f 75 72 63 65 3d 41 | 72 67 2e 31 3b 69 66 20 |Source=A|rg.1;if |
|00000b90| 53 6f 75 72 63 65 3d 27 | 3f 27 20 74 68 65 6e 20 |Source='|?' then |
|00000ba0| 63 61 6c 6c 20 55 73 61 | 67 65 3b 69 66 20 72 69 |call Usa|ge;if ri|
|00000bb0| 67 68 74 28 73 6f 75 72 | 63 65 2c 31 29 3d 27 3a |ght(sour|ce,1)=':|
|00000bc0| 27 20 74 68 65 6e 20 64 | 6f 3b 65 6e 64 3b 65 6c |' then d|o;end;el|
|00000bd0| 73 65 20 64 6f 3b 69 66 | 20 72 69 67 68 74 28 73 |se do;if| right(s|
|00000be0| 6f 75 72 63 65 2c 31 29 | 7e 3d 27 2f 27 20 74 68 |ource,1)|~='/' th|
|00000bf0| 65 6e 20 73 6f 75 72 63 | 65 3d 73 6f 75 72 63 65 |en sourc|e=source|
|00000c00| 7c 7c 27 2f 27 3b 65 6e | 64 3b 46 6f 6e 74 3d 27 |||'/';en|d;Font='|
|00000c10| 58 45 4e 2e 66 6f 6e 74 | 27 3b 46 6f 6e 74 53 69 |XEN.font|';FontSi|
|00000c20| 7a 65 3d 27 39 27 3b 4d | 61 6b 65 47 75 69 64 65 |ze='9';M|akeGuide|
|00000c30| 3d 31 3b 41 64 64 43 6f | 6d 6d 65 6e 74 3d 30 3b |=1;AddCo|mment=0;|
|00000c40| 53 68 6f 72 74 5f 4c 65 | 6e 67 74 68 3d 34 30 3b |Short_Le|ngth=40;|
|00000c50| 46 69 6c 65 6e 61 6d 65 | 5f 4c 65 6e 67 74 68 3d |Filename|_Length=|
|00000c60| 31 38 3b 4d 75 6c 74 69 | 56 69 65 77 5f 50 61 74 |18;Multi|View_Pat|
|00000c70| 68 3d 27 53 79 73 3a 55 | 74 69 6c 69 74 69 65 73 |h='Sys:U|tilities|
|00000c80| 2f 4d 75 6c 74 69 56 69 | 65 77 27 3b 55 6e 70 61 |/MultiVi|ew';Unpa|
|00000c90| 63 6b 5f 44 69 72 3d 27 | 52 41 4d 3a 27 3b 50 69 |ck_Dir='|RAM:';Pi|
|00000ca0| 63 74 75 72 65 5f 56 69 | 65 77 65 72 3d 27 43 3a |cture_Vi|ewer='C:|
|00000cb0| 50 50 53 68 6f 77 27 3b | 50 6c 61 79 5f 50 61 74 |PPShow';|Play_Pat|
|00000cc0| 68 3d 27 43 3a 50 6c 61 | 79 31 36 27 3b 44 4d 53 |h='C:Pla|y16';DMS|
|00000cd0| 5f 44 65 73 74 3d 27 52 | 41 44 3a 27 3b 53 6f 72 |_Dest='R|AD:';Sor|
|00000ce0| 74 4d 6f 64 65 3d 27 44 | 41 54 45 27 3b 4f 70 74 |tMode='D|ATE';Opt|
|00000cf0| 5f 53 74 72 69 6e 67 3d | 27 27 3b 47 75 69 64 65 |_String=|'';Guide|
|00000d00| 5f 53 63 72 65 65 6e 3d | 27 20 53 43 52 45 45 4e |_Screen=|' SCREEN|
|00000d10| 27 3b 47 75 69 64 65 5f | 4c 69 6e 65 53 70 61 63 |';Guide_|LineSpac|
|00000d20| 65 3d 31 3b 47 75 69 64 | 65 5f 44 65 73 74 3d 53 |e=1;Guid|e_Dest=S|
|00000d30| 6f 75 72 63 65 3b 41 72 | 63 68 69 76 65 5f 45 78 |ource;Ar|chive_Ex|
|00000d40| 74 72 61 63 74 3d 30 3b | 4c 48 41 5f 58 74 72 61 |tract=0;|LHA_Xtra|
|00000d50| 63 74 6f 72 3d 27 4c 48 | 41 27 3b 41 6d 69 4d 69 |ctor='LH|A';AmiMi|
|00000d60| 72 72 6f 72 5f 50 61 74 | 68 3d 27 44 68 31 3a 41 |rror_Pat|h='Dh1:A|
|00000d70| 6d 69 6e 65 74 2f 27 3b | 64 6f 20 69 3d 32 20 74 |minet/';|do i=2 t|
|00000d80| 6f 20 41 72 67 6e 75 6d | 3b 4f 70 74 5f 53 74 72 |o Argnum|;Opt_Str|
|00000d90| 69 6e 67 3d 4f 70 74 5f | 53 74 72 69 6e 67 7c 7c |ing=Opt_|String|||
|00000da0| 41 72 67 2e 69 7c 7c 27 | 20 27 3b 73 65 6c 65 63 |Arg.i||'| ';selec|
|00000db0| 74 3b 77 68 65 6e 20 55 | 70 70 65 72 28 41 72 67 |t;when U|pper(Arg|
|00000dc0| 2e 69 29 3d 27 2d 46 27 | 20 74 68 65 6e 20 64 6f |.i)='-F'| then do|
|00000dd0| 3b 69 69 3d 31 2b 69 3b | 46 6f 6e 74 3d 41 72 67 |;ii=1+i;|Font=Arg|
|00000de0| 2e 69 69 3b 69 69 3d 32 | 2b 69 3b 46 6f 6e 74 53 |.ii;ii=2|+i;FontS|
|00000df0| 69 7a 65 3d 41 72 67 2e | 69 69 3b 65 6e 64 3b 77 |ize=Arg.|ii;end;w|
|00000e00| 68 65 6e 20 55 70 70 65 | 72 28 41 72 67 2e 69 29 |hen Uppe|r(Arg.i)|
|00000e10| 3d 27 2d 43 27 20 74 68 | 65 6e 20 64 6f 3b 41 64 |='-C' th|en do;Ad|
|00000e20| 64 43 6f 6d 6d 65 6e 74 | 3d 31 3b 65 6e 64 3b 77 |dComment|=1;end;w|
|00000e30| 68 65 6e 20 55 70 70 65 | 72 28 41 72 67 2e 69 29 |hen Uppe|r(Arg.i)|
|00000e40| 3d 27 2d 56 27 20 74 68 | 65 6e 20 64 6f 3b 69 69 |='-V' th|en do;ii|
|00000e50| 3d 31 2b 69 3b 4d 75 6c | 74 69 56 69 65 77 5f 50 |=1+i;Mul|tiView_P|
|00000e60| 61 74 68 3d 41 72 67 2e | 69 69 3b 65 6e 64 3b 77 |ath=Arg.|ii;end;w|
|00000e70| 68 65 6e 20 55 70 70 65 | 72 28 41 72 67 2e 69 29 |hen Uppe|r(Arg.i)|
|00000e80| 3d 27 2d 55 27 20 74 68 | 65 6e 20 64 6f 3b 69 69 |='-U' th|en do;ii|
|00000e90| 3d 31 2b 69 3b 55 6e 70 | 61 63 6b 5f 44 69 72 3d |=1+i;Unp|ack_Dir=|
|00000ea0| 41 72 67 2e 69 69 3b 69 | 66 20 75 70 70 65 72 28 |Arg.ii;i|f upper(|
|00000eb0| 55 6e 70 61 63 6b 5f 44 | 69 72 29 3d 27 52 45 51 |Unpack_D|ir)='REQ|
|00000ec0| 27 20 74 68 65 6e 20 55 | 6e 70 61 63 6b 5f 44 69 |' then U|npack_Di|
|00000ed0| 72 3d 27 60 43 3a 72 65 | 71 75 65 73 74 66 69 6c |r='`C:re|questfil|
|00000ee0| 65 20 72 61 6d 3a 20 54 | 49 54 4c 45 3d 43 68 6f |e ram: T|ITLE=Cho|
|00000ef0| 6f 73 65 5f 75 6e 70 61 | 63 6b 5f 64 69 72 65 63 |ose_unpa|ck_direc|
|00000f00| 74 6f 72 79 3a 20 64 72 | 61 77 65 72 73 6f 6e 6c |tory: dr|awersonl|
|00000f10| 79 60 27 3b 65 6e 64 3b | 77 68 65 6e 20 55 70 70 |y`';end;|when Upp|
|00000f20| 65 72 28 41 72 67 2e 69 | 29 3d 27 2d 53 27 20 74 |er(Arg.i|)='-S' t|
|00000f30| 68 65 6e 20 64 6f 3b 69 | 69 3d 31 2b 69 3b 53 68 |hen do;i|i=1+i;Sh|
|00000f40| 6f 72 74 5f 4c 65 6e 67 | 74 68 3d 41 72 67 2e 69 |ort_Leng|th=Arg.i|
|00000f50| 69 3b 65 6e 64 3b 77 68 | 65 6e 20 55 70 70 65 72 |i;end;wh|en Upper|
|00000f60| 28 41 72 67 2e 69 29 3d | 27 2d 47 27 20 74 68 65 |(Arg.i)=|'-G' the|
|00000f70| 6e 20 64 6f 3b 4d 61 6b | 65 47 75 69 64 65 3d 30 |n do;Mak|eGuide=0|
|00000f80| 3b 65 6e 64 3b 77 68 65 | 6e 20 55 70 70 65 72 28 |;end;whe|n Upper(|
|00000f90| 41 72 67 2e 69 29 3d 27 | 2d 50 27 20 74 68 65 6e |Arg.i)='|-P' then|
|00000fa0| 20 64 6f 3b 69 69 3d 31 | 2b 69 3b 50 69 63 74 75 | do;ii=1|+i;Pictu|
|00000fb0| 72 65 5f 56 69 65 77 65 | 72 3d 41 72 67 2e 69 69 |re_Viewe|r=Arg.ii|
|00000fc0| 3b 65 6e 64 3b 77 68 65 | 6e 20 55 70 70 65 72 28 |;end;whe|n Upper(|
|00000fd0| 41 72 67 2e 69 29 3d 27 | 2d 44 27 20 74 68 65 6e |Arg.i)='|-D' then|
|00000fe0| 20 64 6f 3b 69 69 3d 31 | 2b 69 3b 44 4d 53 5f 44 | do;ii=1|+i;DMS_D|
|00000ff0| 65 73 74 3d 41 72 67 2e | 69 69 3b 65 6e 64 3b 77 |est=Arg.|ii;end;w|
|00001000| 68 65 6e 20 55 70 70 65 | 72 28 41 72 67 2e 69 29 |hen Uppe|r(Arg.i)|
|00001010| 3d 27 2d 4e 27 20 74 68 | 65 6e 20 64 6f 3b 69 69 |='-N' th|en do;ii|
|00001020| 3d 31 2b 69 3b 46 69 6c | 65 6e 61 6d 65 5f 4c 65 |=1+i;Fil|ename_Le|
|00001030| 6e 67 74 68 3d 41 72 67 | 2e 69 69 3b 69 66 20 46 |ngth=Arg|.ii;if F|
|00001040| 69 6c 65 6e 61 6d 65 5f | 4c 65 6e 67 74 68 3c 31 |ilename_|Length<1|
|00001050| 31 20 74 68 65 6e 20 46 | 69 6c 65 6e 61 6d 65 5f |1 then F|ilename_|
|00001060| 4c 65 6e 67 74 68 3d 31 | 31 3b 65 6e 64 3b 77 68 |Length=1|1;end;wh|
|00001070| 65 6e 20 55 70 70 65 72 | 28 41 72 67 2e 69 29 3d |en Upper|(Arg.i)=|
|00001080| 27 2d 53 4d 27 20 74 68 | 65 6e 20 64 6f 3b 69 69 |'-SM' th|en do;ii|
|00001090| 3d 31 2b 69 3b 53 6f 72 | 74 4d 6f 64 65 3d 41 72 |=1+i;Sor|tMode=Ar|
|000010a0| 67 2e 69 69 3b 65 6e 64 | 3b 77 68 65 6e 20 55 70 |g.ii;end|;when Up|
|000010b0| 70 65 72 28 41 72 67 2e | 69 29 3d 27 2d 53 50 27 |per(Arg.|i)='-SP'|
|000010c0| 20 74 68 65 6e 20 64 6f | 3b 69 69 3d 31 2b 69 3b | then do|;ii=1+i;|
|000010d0| 50 6c 61 79 5f 50 61 74 | 68 3d 41 72 67 2e 69 69 |Play_Pat|h=Arg.ii|
|000010e0| 3b 65 6e 64 3b 77 68 65 | 6e 20 55 70 70 65 72 28 |;end;whe|n Upper(|
|000010f0| 41 72 67 2e 69 29 3d 27 | 2d 4e 53 27 20 74 68 65 |Arg.i)='|-NS' the|
|00001100| 6e 20 64 6f 3b 47 75 69 | 64 65 5f 53 63 72 65 65 |n do;Gui|de_Scree|
|00001110| 6e 3d 27 27 3b 65 6e 64 | 3b 77 68 65 6e 20 55 70 |n='';end|;when Up|
|00001120| 70 65 72 28 41 72 67 2e | 69 29 3d 27 2d 4e 4c 27 |per(Arg.|i)='-NL'|
|00001130| 20 74 68 65 6e 20 64 6f | 3b 47 75 69 64 65 5f 4c | then do|;Guide_L|
|00001140| 69 6e 65 53 70 61 63 65 | 3d 30 3b 65 6e 64 3b 77 |ineSpace|=0;end;w|
|00001150| 68 65 6e 20 55 70 70 65 | 72 28 41 72 67 2e 69 29 |hen Uppe|r(Arg.i)|
|00001160| 3d 27 2d 47 44 27 20 74 | 68 65 6e 20 64 6f 3b 69 |='-GD' t|hen do;i|
|00001170| 69 3d 31 2b 69 3b 47 75 | 69 64 65 5f 44 65 73 74 |i=1+i;Gu|ide_Dest|
|00001180| 3d 41 72 67 2e 69 69 3b | 65 6e 64 3b 77 68 65 6e |=Arg.ii;|end;when|
|00001190| 20 55 70 70 65 72 28 41 | 72 67 2e 69 29 3d 27 2d | Upper(A|rg.i)='-|
|000011a0| 58 27 20 74 68 65 6e 20 | 64 6f 3b 41 72 63 68 69 |X' then |do;Archi|
|000011b0| 76 65 5f 45 78 74 72 61 | 63 74 3d 31 3b 65 6e 64 |ve_Extra|ct=1;end|
|000011c0| 3b 77 68 65 6e 20 55 70 | 70 65 72 28 41 72 67 2e |;when Up|per(Arg.|
|000011d0| 69 29 3d 27 2d 4c 5a 58 | 27 20 74 68 65 6e 20 64 |i)='-LZX|' then d|
|000011e0| 6f 3b 4c 48 41 5f 58 74 | 72 61 63 74 6f 72 3d 27 |o;LHA_Xt|ractor='|
|000011f0| 4c 5a 58 27 3b 65 6e 64 | 3b 4f 74 68 65 72 77 69 |LZX';end|;Otherwi|
|00001200| 73 65 20 4e 4f 50 3b 65 | 6e 64 3b 65 6e 64 3b 69 |se NOP;e|nd;end;i|
|00001210| 66 20 7e 65 78 69 73 74 | 73 28 53 6f 75 72 63 65 |f ~exist|s(Source|
|00001220| 29 20 74 68 65 6e 20 64 | 6f 3b 53 61 79 20 27 1b |) then d|o;Say '.|
|00001230| 5b 31 6d 20 45 72 72 6f | 72 21 20 2d 3e 20 27 7c |[1m Erro|r! -> '||
|00001240| 7c 53 6f 75 72 63 65 7c | 7c 27 20 64 6f 65 73 20 ||Source|||' does |
|00001250| 6e 6f 74 20 65 78 69 73 | 74 20 6f 6e 20 79 6f 75 |not exis|t on you|
|00001260| 72 20 73 79 73 74 65 6d | 2e 2e 2e 1b 5b 30 6d 27 |r system|....[0m'|
|00001270| 3b 43 61 6c 6c 20 55 73 | 61 67 65 3b 65 6e 64 3b |;Call Us|age;end;|
|00001280| 69 66 20 7e 65 78 69 73 | 74 73 28 27 46 6f 6e 74 |if ~exis|ts('Font|
|00001290| 73 3a 27 7c 7c 46 6f 6e | 74 29 20 74 68 65 6e 20 |s:'||Fon|t) then |
|000012a0| 64 6f 3b 53 61 79 20 27 | 1b 5b 31 6d 20 45 72 72 |do;Say '|.[1m Err|
|000012b0| 6f 72 21 20 2d 3e 20 46 | 6f 6e 74 73 3a 27 7c 7c |or! -> F|onts:'|||
|000012c0| 46 6f 6e 74 27 20 77 61 | 73 20 6e 6f 74 20 6c 6f |Font' wa|s not lo|
|000012d0| 63 61 74 65 64 2e 2e 2e | 1b 5b 30 6d 27 3b 43 61 |cated...|.[0m';Ca|
|000012e0| 6c 6c 20 55 73 61 67 65 | 3b 65 6e 64 3b 69 66 20 |ll Usage|;end;if |
|000012f0| 7e 65 78 69 73 74 73 28 | 4d 75 6c 74 69 56 69 65 |~exists(|MultiVie|
|00001300| 77 5f 50 61 74 68 29 20 | 74 68 65 6e 20 64 6f 3b |w_Path) |then do;|
|00001310| 53 61 79 20 27 1b 5b 31 | 6d 20 45 72 72 6f 72 21 |Say '.[1|m Error!|
|00001320| 20 2d 3e 20 27 7c 7c 4d | 75 6c 74 69 56 69 65 77 | -> '||M|ultiView|
|00001330| 5f 50 61 74 68 7c 7c 27 | 2e 20 54 68 65 20 47 75 |_Path||'|. The Gu|
|00001340| 69 64 65 2d 56 69 65 77 | 65 72 20 77 61 73 20 6e |ide-View|er was n|
|00001350| 6f 74 20 6c 6f 63 61 74 | 65 64 2e 2e 2e 1b 5b 30 |ot locat|ed....[0|
|00001360| 6d 27 3b 43 61 6c 6c 20 | 55 73 61 67 65 3b 65 6e |m';Call |Usage;en|
|00001370| 64 3b 69 66 20 41 72 63 | 68 69 76 65 5f 45 78 74 |d;if Arc|hive_Ext|
|00001380| 72 61 63 74 3d 31 20 74 | 68 65 6e 20 64 6f 3b 49 |ract=1 t|hen do;I|
|00001390| 66 20 65 78 69 73 74 73 | 28 27 43 3a 27 7c 7c 4c |f exists|('C:'||L|
|000013a0| 48 41 5f 58 74 72 61 63 | 74 6f 72 29 20 74 68 65 |HA_Xtrac|tor) the|
|000013b0| 6e 20 64 6f 3b 4c 68 61 | 5f 74 65 6d 70 3d 27 52 |n do;Lha|_temp='R|
|000013c0| 41 4d 3a 27 7c 7c 4c 48 | 41 5f 58 74 72 61 63 74 |AM:'||LH|A_Xtract|
|000013d0| 6f 72 7c 7c 74 69 6d 65 | 28 27 53 27 29 3b 41 64 |or||time|('S');Ad|
|000013e0| 64 72 65 73 73 20 43 6f | 6d 6d 61 6e 64 20 27 43 |dress Co|mmand 'C|
|000013f0| 3a 43 6f 70 79 20 43 3a | 27 7c 7c 4c 48 41 5f 58 |:Copy C:|'||LHA_X|
|00001400| 74 72 61 63 74 6f 72 7c | 7c 27 20 74 6f 20 27 7c |tractor|||' to '||
|00001410| 7c 4c 68 61 5f 74 65 6d | 70 7c 7c 27 20 51 75 69 ||Lha_tem|p||' Qui|
|00001420| 65 74 27 3b 65 6e 64 3b | 65 6c 73 65 20 64 6f 3b |et';end;|else do;|
|00001430| 53 61 79 20 27 1b 5b 31 | 6d 20 45 72 72 6f 72 21 |Say '.[1|m Error!|
|00001440| 20 2d 3e 20 43 3a 4c 68 | 61 2f 43 3a 4c 7a 78 20 | -> C:Lh|a/C:Lzx |
|00001450| 77 61 73 20 6e 6f 74 20 | 6c 6f 63 61 74 65 64 2c |was not |located,|
|00001460| 20 69 74 20 69 73 20 72 | 65 71 75 69 72 65 64 20 | it is r|equired |
|00001470| 66 6f 72 20 4c 68 61 20 | 65 78 74 72 61 63 74 69 |for Lha |extracti|
|00001480| 6f 6e 2e 1b 5b 30 6d 27 | 3b 53 61 79 20 27 1b 5b |on..[0m'|;Say '.[|
|00001490| 31 6d 20 49 66 20 79 6f | 75 20 61 72 65 20 75 73 |1m If yo|u are us|
|000014a0| 69 6e 67 20 74 68 65 20 | 6f 70 74 69 6f 6e 20 2d |ing the |option -|
|000014b0| 4c 5a 58 2c 20 74 68 65 | 6e 20 79 6f 75 20 6e 65 |LZX, the|n you ne|
|000014c0| 65 64 20 43 3a 4c 5a 58 | 20 76 31 2e 31 30 72 2b |ed C:LZX| v1.10r+|
|000014d0| 2e 1b 5b 30 6d 27 3b 43 | 61 6c 6c 20 55 73 61 67 |..[0m';C|all Usag|
|000014e0| 65 3b 65 6e 64 3b 65 6e | 64 3b 69 66 20 65 78 69 |e;end;en|d;if exi|
|000014f0| 73 74 73 28 53 6f 75 72 | 63 65 7c 7c 27 2d 41 6d |sts(Sour|ce||'-Am|
|00001500| 69 6e 65 74 2e 67 75 69 | 64 65 27 29 20 74 68 65 |inet.gui|de') the|
|00001510| 6e 20 64 6f 3b 61 64 64 | 72 65 73 73 20 63 6f 6d |n do;add|ress com|
|00001520| 6d 61 6e 64 20 22 43 3a | 44 65 6c 65 74 65 20 22 |mand "C:|Delete "|
|00001530| 7c 7c 53 6f 75 72 63 65 | 7c 7c 27 2d 41 6d 69 6e |||Source|||'-Amin|
|00001540| 65 74 2e 67 75 69 64 65 | 20 71 75 69 65 74 27 3b |et.guide| quiet';|
|00001550| 65 6e 64 3b 69 66 20 7e | 73 68 6f 77 28 27 6c 27 |end;if ~|show('l'|
|00001560| 2c 27 72 65 78 78 73 75 | 70 70 6f 72 74 2e 6c 69 |,'rexxsu|pport.li|
|00001570| 62 72 61 72 79 27 29 20 | 74 68 65 6e 20 64 6f 3b |brary') |then do;|
|00001580| 63 61 6c 6c 20 61 64 64 | 6c 69 62 28 27 72 65 78 |call add|lib('rex|
|00001590| 78 73 75 70 70 6f 72 74 | 2e 6c 69 62 72 61 72 79 |xsupport|.library|
|000015a0| 27 2c 30 2c 2d 33 30 2c | 30 29 3b 65 6e 64 3b 46 |',0,-30,|0);end;F|
|000015b0| 69 6c 65 73 2e 3d 27 27 | 3b 46 69 6c 65 44 61 74 |iles.=''|;FileDat|
|000015c0| 65 2e 3d 27 27 3b 4e 75 | 6d 5f 46 69 6c 65 73 3d |e.='';Nu|m_Files=|
|000015d0| 47 65 74 44 69 72 28 53 | 6f 75 72 63 65 7c 7c 27 |GetDir(S|ource||'|
|000015e0| 7e 28 23 3f 2e 72 65 61 | 64 6d 65 7c 23 3f 2e 72 |~(#?.rea|dme|#?.r|
|000015f0| 65 61 7c 23 3f 2e 69 6e | 66 6f 7c 2d 47 69 47 41 |ea|#?.in|fo|-GiGA|
|00001600| 2e 67 75 69 64 65 29 27 | 2c 53 6f 72 74 4d 6f 64 |.guide)'|,SortMod|
|00001610| 65 29 3b 44 69 72 73 2e | 3d 27 27 3b 44 69 72 5f |e);Dirs.|='';Dir_|
|00001620| 43 6f 75 6e 74 3d 47 65 | 74 44 69 72 73 4f 6e 6c |Count=Ge|tDirsOnl|
|00001630| 79 28 53 6f 75 72 63 65 | 29 3b 69 66 20 4d 61 6b |y(Source|);if Mak|
|00001640| 65 47 75 69 64 65 3d 31 | 20 74 68 65 6e 20 64 6f |eGuide=1| then do|
|00001650| 3b 73 75 63 63 65 73 73 | 3d 6f 70 65 6e 28 47 55 |;success|=open(GU|
|00001660| 49 44 45 2c 47 75 69 64 | 65 5f 44 65 73 74 7c 7c |IDE,Guid|e_Dest|||
|00001670| 27 2d 47 69 47 41 2e 67 | 75 69 64 65 27 2c 27 77 |'-GiGA.g|uide','w|
|00001680| 27 29 3b 69 66 20 73 75 | 63 63 65 73 73 3d 30 20 |');if su|ccess=0 |
|00001690| 74 68 65 6e 20 64 6f 3b | 73 61 79 20 27 49 2f 4f |then do;|say 'I/O|
|000016a0| 20 45 72 72 6f 72 21 20 | 2d 20 47 75 69 64 65 20 | Error! |- Guide |
|000016b0| 63 6f 75 6c 64 20 6e 6f | 74 20 62 65 20 77 72 69 |could no|t be wri|
|000016c0| 74 74 65 6e 2e 2e 2e 20 | 49 74 20 63 6f 75 6c 64 |tten... |It could|
|000016d0| 20 62 65 20 6f 70 65 6e | 20 61 6c 72 65 61 64 79 | be open| already|
|000016e0| 3f 27 3b 45 78 69 74 20 | 36 36 36 3b 65 6e 64 3b |?';Exit |666;end;|
|000016f0| 43 61 6c 6c 20 57 72 69 | 74 65 4c 4e 28 47 55 49 |Call Wri|teLN(GUI|
|00001700| 44 45 2c 27 40 44 61 74 | 61 42 61 73 65 20 27 7c |DE,'@Dat|aBase '||
|00001710| 7c 53 6f 75 72 63 65 7c | 7c 27 41 6d 69 4e 65 74 ||Source|||'AmiNet|
|00001720| 2e 67 75 69 64 65 27 29 | 3b 43 61 6c 6c 20 57 72 |.guide')|;Call Wr|
|00001730| 69 74 65 4c 4e 28 47 55 | 49 44 45 2c 27 40 24 56 |iteLN(GU|IDE,'@$V|
|00001740| 45 52 3a 20 4d 61 64 65 | 20 77 69 74 68 20 47 69 |ER: Made| with Gi|
|00001750| 67 61 47 75 69 64 65 20 | 27 7c 7c 58 76 65 72 7c |gaGuide |'||Xver||
|00001760| 7c 27 20 28 27 7c 7c 4c | 61 73 74 75 70 7c 7c 27 ||' ('||L|astup||'|
|00001770| 29 27 29 3b 43 61 6c 6c | 20 57 72 69 74 65 4c 4e |)');Call| WriteLN|
|00001780| 28 47 55 49 44 45 2c 27 | 40 28 43 29 20 43 6f 70 |(GUIDE,'|@(C) Cop|
|00001790| 79 72 69 67 68 74 20 a9 | 20 31 39 39 37 20 27 7c |yright .| 1997 '||
|000017a0| 7c 41 75 74 68 6f 72 7c | 7c 27 20 2f 20 47 69 47 ||Author|||' / GiG|
|000017b0| 41 20 50 72 6f 64 75 63 | 74 69 6f 6e 73 2e 27 29 |A Produc|tions.')|
|000017c0| 3b 43 61 6c 6c 20 57 72 | 69 74 65 4c 4e 28 47 55 |;Call Wr|iteLN(GU|
|000017d0| 49 44 45 2c 27 40 41 75 | 74 68 6f 72 20 27 7c 7c |IDE,'@Au|thor '|||
|000017e0| 41 75 74 68 6f 72 29 3b | 43 61 6c 6c 20 57 72 69 |Author);|Call Wri|
|000017f0| 74 65 4c 4e 28 47 55 49 | 44 45 2c 27 40 66 6f 6e |teLN(GUI|DE,'@fon|
|00001800| 74 20 27 7c 7c 46 6f 6e | 74 7c 7c 27 20 27 7c 7c |t '||Fon|t||' '|||
|00001810| 46 6f 6e 74 53 69 7a 65 | 29 3b 43 61 6c 6c 20 57 |FontSize|);Call W|
|00001820| 72 69 74 65 4c 4e 28 47 | 55 49 44 45 2c 27 40 49 |riteLN(G|UIDE,'@I|
|00001830| 6e 64 65 78 20 22 4d 61 | 69 6e 22 27 29 3b 43 61 |ndex "Ma|in"');Ca|
|00001840| 6c 6c 20 57 72 69 74 65 | 4c 4e 28 47 55 49 44 45 |ll Write|LN(GUIDE|
|00001850| 2c 27 40 4e 6f 64 65 20 | 4d 41 49 4e 20 22 47 69 |,'@Node |MAIN "Gi|
|00001860| 67 61 47 75 69 64 65 20 | 63 72 65 61 74 65 64 20 |gaGuide |created |
|00001870| 62 79 20 27 7c 7c 41 75 | 74 68 6f 72 7c 7c 27 20 |by '||Au|thor||' |
|00001880| 2f 20 47 69 47 41 20 50 | 72 6f 64 75 63 74 69 6f |/ GiGA P|roductio|
|00001890| 6e 73 2e 20 28 43 29 20 | 27 7c 7c 4c 61 73 74 75 |ns. (C) |'||Lastu|
|000018a0| 70 7c 7c 27 22 27 7c 7c | 4e 4c 29 3b 43 61 6c 6c |p||'"'|||NL);Call|
|000018b0| 20 57 72 69 74 65 4c 4e | 28 47 55 49 44 45 2c 27 | WriteLN|(GUIDE,'|
|000018c0| 20 40 7b 42 7d 47 69 67 | 61 47 75 69 64 65 20 27 | @{B}Gig|aGuide '|
|000018d0| 7c 7c 58 76 65 72 7c 7c | 27 20 62 79 20 27 7c 7c |||Xver|||' by '|||
|000018e0| 41 75 74 68 6f 72 7c 7c | 27 20 2f 20 47 69 47 41 |Author|||' / GiGA|
|000018f0| 20 50 72 6f 64 75 63 74 | 69 6f 6e 73 2e 20 28 43 | Product|ions. (C|
|00001900| 29 20 27 7c 7c 4c 61 73 | 74 75 70 7c 7c 27 40 7b |) '||Las|tup||'@{|
|00001910| 55 42 7d 20 20 20 40 7b | 22 20 47 69 67 61 47 75 |UB} @{|" GigaGu|
|00001920| 69 64 65 20 49 6e 66 6f | 20 22 20 6c 69 6e 6b 20 |ide Info| " link |
|00001930| 22 49 6e 66 6f 22 7d 27 | 7c 7c 4e 4c 29 3b 43 61 |"Info"}'|||NL);Ca|
|00001940| 6c 6c 20 57 72 69 74 65 | 4c 4e 28 47 55 49 44 45 |ll Write|LN(GUIDE|
|00001950| 2c 27 20 40 7b 42 7d 44 | 6f 77 6e 6c 6f 61 64 20 |,' @{B}D|ownload |
|00001960| 64 69 72 3a 20 27 7c 7c | 73 6f 75 72 63 65 7c 7c |dir: '|||source|||
|00001970| 27 20 28 43 72 65 61 74 | 65 64 3a 20 27 7c 7c 44 |' (Creat|ed: '||D|
|00001980| 61 74 65 28 29 7c 7c 27 | 2e 20 46 69 6c 65 73 3a |ate()||'|. Files:|
|00001990| 20 27 7c 7c 4e 75 6d 5f | 46 69 6c 65 73 7c 7c 27 | '||Num_|Files||'|
|000019a0| 2e 20 53 75 62 73 3a 20 | 27 7c 7c 44 69 72 5f 63 |. Subs: |'||Dir_c|
|000019b0| 6f 75 6e 74 7c 7c 27 29 | 40 7b 55 42 7d 27 7c 7c |ount||')|@{UB}'|||
|000019c0| 4e 4c 29 3b 43 61 6c 6c | 20 57 72 69 74 65 4c 4e |NL);Call| WriteLN|
|000019d0| 28 47 55 49 44 45 2c 27 | 40 7b 42 7d 20 40 7b 55 |(GUIDE,'|@{B} @{U|
|000019e0| 7d 20 27 7c 7c 53 70 61 | 63 65 73 75 66 66 69 78 |} '||Spa|cesuffix|
|000019f0| 28 27 55 6e 70 61 63 6b | 2f 56 69 65 77 3a 27 2c |('Unpack|/View:',|
|00001a00| 66 69 6c 65 6e 61 6d 65 | 5f 6c 65 6e 67 74 68 2b |filename|_length+|
|00001a10| 31 29 20 53 70 61 63 65 | 53 75 66 66 69 78 28 27 |1) Space|Suffix('|
|00001a20| 44 61 74 65 3a 27 2c 31 | 31 29 7c 7c 27 40 7b 55 |Date:',1|1)||'@{U|
|00001a30| 42 7d 40 7b 55 55 7d 27 | 7c 7c 27 27 7c 7c 27 40 |B}@{UU}'|||''||'@|
|00001a40| 7b 42 7d 40 7b 55 7d 56 | 69 65 77 20 72 65 61 64 |{B}@{U}V|iew read|
|00001a50| 6d 65 3a 20 40 7b 55 42 | 7d 40 7b 55 55 7d 27 7c |me: @{UB|}@{UU}'||
|00001a60| 7c 4e 4c 29 3b 65 6e 64 | 3b 64 6f 20 69 3d 31 20 ||NL);end|;do i=1 |
|00001a70| 74 6f 20 4e 75 6d 5f 46 | 69 6c 65 73 3b 53 3d 27 |to Num_F|iles;S='|
|00001a80| 2a 2a 2a 20 20 20 20 4e | 2f 41 20 20 20 20 2a 2a |*** N|/A **|
|00001a90| 2a 27 3b 46 69 6c 65 62 | 61 73 65 3d 67 65 74 46 |*';Fileb|ase=getF|
|00001aa0| 69 6c 65 42 61 73 65 28 | 46 69 6c 65 73 2e 69 29 |ileBase(|Files.i)|
|00001ab0| 3b 72 65 61 64 6d 65 66 | 69 6c 65 3d 46 69 6c 65 |;readmef|ile=File|
|00001ac0| 42 61 73 65 7c 7c 27 2e | 27 7c 7c 27 72 65 61 64 |Base||'.|'||'read|
|00001ad0| 6d 65 27 3b 72 65 61 5f | 74 65 6d 70 3d 6c 65 66 |me';rea_|temp=lef|
|00001ae0| 74 28 72 65 61 64 6d 65 | 66 69 6c 65 2c 6c 65 6e |t(readme|file,len|
|00001af0| 67 74 68 28 72 65 61 64 | 6d 65 66 69 6c 65 29 2d |gth(read|mefile)-|
|00001b00| 33 29 3b 69 66 20 65 78 | 69 73 74 73 28 53 6f 75 |3);if ex|ists(Sou|
|00001b10| 72 63 65 7c 7c 72 65 61 | 5f 74 65 6d 70 29 20 74 |rce||rea|_temp) t|
|00001b20| 68 65 6e 20 64 6f 3b 72 | 65 61 64 6d 65 66 69 6c |hen do;r|eadmefil|
|00001b30| 65 3d 46 69 6c 65 42 61 | 73 65 7c 7c 27 2e 27 7c |e=FileBa|se||'.'||
|00001b40| 7c 27 72 65 61 27 3b 65 | 6e 64 3b 69 66 20 41 72 ||'rea';e|nd;if Ar|
|00001b50| 63 68 69 76 65 5f 45 78 | 74 72 61 63 74 3d 31 20 |chive_Ex|tract=1 |
|00001b60| 74 68 65 6e 20 64 6f 3b | 69 66 20 65 78 69 73 74 |then do;|if exist|
|00001b70| 73 28 53 6f 75 72 63 65 | 7c 7c 46 69 6c 65 42 61 |s(Source|||FileBa|
|00001b80| 73 65 7c 7c 27 2e 27 7c | 7c 27 6c 68 61 27 29 20 |se||'.'|||'lha') |
|00001b90| 74 68 65 6e 20 64 6f 3b | 61 78 3d 4c 68 61 5f 74 |then do;|ax=Lha_t|
|00001ba0| 65 6d 70 7c 7c 27 20 2d | 6d 20 2d 71 20 78 20 27 |emp||' -|m -q x '|
|00001bb0| 7c 7c 53 6f 75 72 63 65 | 7c 7c 46 69 6c 65 42 61 |||Source|||FileBa|
|00001bc0| 73 65 7c 7c 27 2e 27 7c | 7c 27 6c 68 61 20 27 7c |se||'.'|||'lha '||
|00001bd0| 7c 72 65 61 64 6d 65 66 | 69 6c 65 7c 7c 27 20 27 ||readmef|ile||' '|
|00001be0| 7c 7c 53 6f 75 72 63 65 | 3b 41 64 64 72 65 73 73 |||Source|;Address|
|00001bf0| 20 43 6f 6d 6d 61 6e 64 | 20 61 78 3b 65 6e 64 3b | Command| ax;end;|
|00001c00| 65 6e 64 3b 69 66 20 65 | 78 69 73 74 73 28 53 6f |end;if e|xists(So|
|00001c10| 75 72 63 65 7c 7c 72 65 | 61 64 6d 65 66 69 6c 65 |urce||re|admefile|
|00001c20| 29 20 74 68 65 6e 20 64 | 6f 3b 43 61 6c 6c 20 6f |) then d|o;Call o|
|00001c30| 70 65 6e 28 52 45 41 44 | 4d 45 2c 53 6f 75 72 63 |pen(READ|ME,Sourc|
|00001c40| 65 7c 7c 72 65 61 64 6d | 65 66 69 6c 65 2c 27 72 |e||readm|efile,'r|
|00001c50| 27 29 3b 53 3d 63 6f 6d | 70 72 65 73 73 28 72 65 |');S=com|press(re|
|00001c60| 61 64 6c 6e 28 52 45 41 | 44 4d 45 29 2c 27 22 27 |adln(REA|DME),'"'|
|00001c70| 29 3b 69 66 20 75 70 70 | 65 72 28 6c 65 66 74 28 |);if upp|er(left(|
|00001c80| 73 2c 36 29 29 7e 3d 27 | 53 48 4f 52 54 3a 27 20 |s,6))~='|SHORT:' |
|00001c90| 74 68 65 6e 20 64 6f 3b | 53 3d 27 2a 2a 2a 20 20 |then do;|S='*** |
|00001ca0| 41 6d 69 6e 65 74 20 53 | 68 6f 72 74 3a 20 6e 6f |Aminet S|hort: no|
|00001cb0| 74 20 66 6f 75 6e 64 2e | 20 20 2a 2a 2a 27 3b 65 |t found.| ***';e|
|00001cc0| 6e 64 3b 65 6c 73 65 20 | 64 6f 3b 53 3d 73 74 72 |nd;else |do;S=str|
|00001cd0| 69 70 28 72 69 67 68 74 | 28 53 2c 6c 65 6e 67 74 |ip(right|(S,lengt|
|00001ce0| 68 28 53 29 2d 36 29 29 | 3b 65 6e 64 3b 65 6e 64 |h(S)-6))|;end;end|
|00001cf0| 3b 41 72 63 68 69 76 65 | 72 3d 55 70 70 65 72 28 |;Archive|r=Upper(|
|00001d00| 46 69 6c 65 73 2e 69 29 | 3b 73 65 6c 65 63 74 3b |Files.i)|;select;|
|00001d10| 77 68 65 6e 20 72 69 67 | 68 74 28 41 72 63 68 69 |when rig|ht(Archi|
|00001d20| 76 65 72 2c 33 29 3d 27 | 4c 48 41 27 20 74 68 65 |ver,3)='|LHA' the|
|00001d30| 6e 20 64 6f 3b 64 65 73 | 74 3d 41 72 63 68 69 76 |n do;des|t=Archiv|
|00001d40| 65 72 7c 7c 27 20 27 7c | 7c 55 6e 70 61 63 6b 5f |er||' '|||Unpack_|
|00001d50| 44 69 72 7c 7c 27 20 3e | 43 4f 4e 3a 27 3b 70 61 |Dir||' >|CON:';pa|
|00001d60| 63 6b 65 72 3d 27 43 3a | 52 75 6e 20 27 7c 7c 4c |cker='C:|Run '||L|
|00001d70| 48 41 5f 58 74 72 61 63 | 74 6f 72 7c 7c 27 20 78 |HA_Xtrac|tor||' x|
|00001d80| 20 27 3b 65 6e 64 3b 77 | 68 65 6e 20 72 69 67 68 | ';end;w|hen righ|
|00001d90| 74 28 41 72 63 68 69 76 | 65 72 2c 33 29 3d 27 4c |t(Archiv|er,3)='L|
|00001da0| 5a 58 27 20 74 68 65 6e | 20 64 6f 3b 64 65 73 74 |ZX' then| do;dest|
|00001db0| 3d 41 72 63 68 69 76 65 | 72 7c 7c 27 20 27 7c 7c |=Archive|r||' '|||
|00001dc0| 55 6e 70 61 63 6b 5f 44 | 69 72 7c 7c 27 20 3e 43 |Unpack_D|ir||' >C|
|00001dd0| 4f 4e 3a 27 3b 70 61 63 | 6b 65 72 3d 27 43 3a 52 |ON:';pac|ker='C:R|
|00001de0| 75 6e 20 4c 5a 58 20 78 | 20 27 3b 65 6e 64 3b 77 |un LZX x| ';end;w|
|00001df0| 68 65 6e 20 72 69 67 68 | 74 28 41 72 63 68 69 76 |hen righ|t(Archiv|
|00001e00| 65 72 2c 33 29 3d 27 44 | 4d 53 27 20 74 68 65 6e |er,3)='D|MS' then|
|00001e10| 20 64 6f 3b 64 65 73 74 | 3d 41 72 63 68 69 76 65 | do;dest|=Archive|
|00001e20| 72 7c 7c 27 20 54 4f 20 | 27 7c 7c 44 4d 53 5f 44 |r||' TO |'||DMS_D|
|00001e30| 65 73 74 7c 7c 27 20 6e | 6f 72 65 71 20 3e 43 4f |est||' n|oreq >CO|
|00001e40| 4e 3a 27 3b 70 61 63 6b | 65 72 3d 27 43 3a 52 75 |N:';pack|er='C:Ru|
|00001e50| 6e 20 3e 4e 49 4c 3a 20 | 44 4d 53 20 57 52 49 54 |n >NIL: |DMS WRIT|
|00001e60| 45 20 27 3b 65 6e 64 3b | 77 68 65 6e 20 72 69 67 |E ';end;|when rig|
|00001e70| 68 74 28 41 72 63 68 69 | 76 65 72 2c 33 29 3d 27 |ht(Archi|ver,3)='|
|00001e80| 5a 49 50 27 20 74 68 65 | 6e 20 64 6f 3b 64 65 73 |ZIP' the|n do;des|
|00001e90| 74 3d 41 72 63 68 69 76 | 65 72 7c 7c 27 20 2d 64 |t=Archiv|er||' -d|
|00001ea0| 20 27 7c 7c 55 6e 70 61 | 63 6b 5f 44 69 72 7c 7c | '||Unpa|ck_Dir|||
|00001eb0| 27 20 3e 43 4f 4e 3a 27 | 3b 70 61 63 6b 65 72 3d |' >CON:'|;packer=|
|00001ec0| 27 43 3a 52 75 6e 20 3e | 4e 49 4c 3a 20 43 3a 55 |'C:Run >|NIL: C:U|
|00001ed0| 4e 5a 49 50 20 2d 64 20 | 27 3b 65 6e 64 3b 77 68 |NZIP -d |';end;wh|
|00001ee0| 65 6e 20 72 69 67 68 74 | 28 41 72 63 68 69 76 65 |en right|(Archive|
|00001ef0| 72 2c 33 29 3d 27 4c 5a | 48 27 20 74 68 65 6e 20 |r,3)='LZ|H' then |
|00001f00| 64 6f 3b 64 65 73 74 3d | 41 72 63 68 69 76 65 72 |do;dest=|Archiver|
|00001f10| 7c 7c 27 20 27 7c 7c 55 | 6e 70 61 63 6b 5f 44 69 |||' '||U|npack_Di|
|00001f20| 72 7c 7c 27 20 3e 43 4f | 4e 3a 27 3b 70 61 63 6b |r||' >CO|N:';pack|
|00001f30| 65 72 3d 27 43 3a 52 75 | 6e 20 27 7c 7c 4c 48 41 |er='C:Ru|n '||LHA|
|00001f40| 5f 58 74 72 61 63 74 6f | 72 7c 7c 27 20 78 20 27 |_Xtracto|r||' x '|
|00001f50| 3b 65 6e 64 3b 77 68 65 | 6e 20 72 69 67 68 74 28 |;end;whe|n right(|
|00001f60| 41 72 63 68 69 76 65 72 | 2c 33 29 3d 27 42 41 54 |Archiver|,3)='BAT|
|00001f70| 27 20 74 68 65 6e 20 64 | 6f 3b 64 65 73 74 3d 41 |' then d|o;dest=A|
|00001f80| 72 63 68 69 76 65 72 7c | 7c 27 20 3e 43 4f 4e 3a |rchiver|||' >CON:|
|00001f90| 27 3b 70 61 63 6b 65 72 | 3d 27 43 3a 45 78 65 63 |';packer|='C:Exec|
|00001fa0| 75 74 65 20 27 3b 65 6e | 64 3b 77 68 65 6e 20 72 |ute ';en|d;when r|
|00001fb0| 69 67 68 74 28 41 72 63 | 68 69 76 65 72 2c 33 29 |ight(Arc|hiver,3)|
|00001fc0| 3d 27 4a 50 47 27 20 74 | 68 65 6e 20 64 6f 3b 64 |='JPG' t|hen do;d|
|00001fd0| 65 73 74 3d 41 72 63 68 | 69 76 65 72 3b 70 61 63 |est=Arch|iver;pac|
|00001fe0| 6b 65 72 3d 27 43 3a 52 | 75 6e 20 27 7c 7c 50 69 |ker='C:R|un '||Pi|
|00001ff0| 63 74 75 72 65 5f 56 69 | 65 77 65 72 7c 7c 27 20 |cture_Vi|ewer||' |
|00002000| 27 3b 65 6e 64 3b 77 68 | 65 6e 20 72 69 67 68 74 |';end;wh|en right|
|00002010| 28 41 72 63 68 69 76 65 | 72 2c 34 29 3d 27 4a 50 |(Archive|r,4)='JP|
|00002020| 45 47 27 20 74 68 65 6e | 20 64 6f 3b 64 65 73 74 |EG' then| do;dest|
|00002030| 3d 41 72 63 68 69 76 65 | 72 3b 70 61 63 6b 65 72 |=Archive|r;packer|
|00002040| 3d 27 43 3a 52 75 6e 20 | 27 7c 7c 50 69 63 74 75 |='C:Run |'||Pictu|
|00002050| 72 65 5f 56 69 65 77 65 | 72 7c 7c 27 20 27 3b 65 |re_Viewe|r||' ';e|
|00002060| 6e 64 3b 77 68 65 6e 20 | 72 69 67 68 74 28 41 72 |nd;when |right(Ar|
|00002070| 63 68 69 76 65 72 2c 33 | 29 3d 27 47 49 46 27 20 |chiver,3|)='GIF' |
|00002080| 74 68 65 6e 20 64 6f 3b | 64 65 73 74 3d 41 72 63 |then do;|dest=Arc|
|00002090| 68 69 76 65 72 3b 70 61 | 63 6b 65 72 3d 27 43 3a |hiver;pa|cker='C:|
|000020a0| 52 75 6e 20 27 7c 7c 50 | 69 63 74 75 72 65 5f 56 |Run '||P|icture_V|
|000020b0| 69 65 77 65 72 7c 7c 27 | 20 27 3b 65 6e 64 3b 77 |iewer||'| ';end;w|
|000020c0| 68 65 6e 20 72 69 67 68 | 74 28 41 72 63 68 69 76 |hen righ|t(Archiv|
|000020d0| 65 72 2c 33 29 3d 27 50 | 4e 47 27 20 74 68 65 6e |er,3)='P|NG' then|
|000020e0| 20 64 6f 3b 64 65 73 74 | 3d 41 72 63 68 69 76 65 | do;dest|=Archive|
|000020f0| 72 3b 70 61 63 6b 65 72 | 3d 27 43 3a 52 75 6e 20 |r;packer|='C:Run |
|00002100| 27 7c 7c 50 69 63 74 75 | 72 65 5f 56 69 65 77 65 |'||Pictu|re_Viewe|
|00002110| 72 7c 7c 27 20 27 3b 65 | 6e 64 3b 77 68 65 6e 20 |r||' ';e|nd;when |
|00002120| 72 69 67 68 74 28 41 72 | 63 68 69 76 65 72 2c 33 |right(Ar|chiver,3|
|00002130| 29 3d 27 49 46 46 27 20 | 74 68 65 6e 20 64 6f 3b |)='IFF' |then do;|
|00002140| 64 65 73 74 3d 41 72 63 | 68 69 76 65 72 3b 70 61 |dest=Arc|hiver;pa|
|00002150| 63 6b 65 72 3d 27 43 3a | 52 75 6e 20 27 7c 7c 50 |cker='C:|Run '||P|
|00002160| 69 63 74 75 72 65 5f 56 | 69 65 77 65 72 7c 7c 27 |icture_V|iewer||'|
|00002170| 20 27 3b 65 6e 64 3b 77 | 68 65 6e 20 72 69 67 68 | ';end;w|hen righ|
|00002180| 74 28 41 72 63 68 69 76 | 65 72 2c 33 29 3d 27 48 |t(Archiv|er,3)='H|
|00002190| 41 4d 27 20 74 68 65 6e | 20 64 6f 3b 64 65 73 74 |AM' then| do;dest|
|000021a0| 3d 41 72 63 68 69 76 65 | 72 3b 70 61 63 6b 65 72 |=Archive|r;packer|
|000021b0| 3d 27 43 3a 52 75 6e 20 | 27 7c 7c 50 69 63 74 75 |='C:Run |'||Pictu|
|000021c0| 72 65 5f 56 69 65 77 65 | 72 7c 7c 27 20 27 3b 65 |re_Viewe|r||' ';e|
|000021d0| 6e 64 3b 77 68 65 6e 20 | 72 69 67 68 74 28 41 72 |nd;when |right(Ar|
|000021e0| 63 68 69 76 65 72 2c 34 | 29 3d 27 48 41 4d 38 27 |chiver,4|)='HAM8'|
|000021f0| 20 74 68 65 6e 20 64 6f | 3b 64 65 73 74 3d 41 72 | then do|;dest=Ar|
|00002200| 63 68 69 76 65 72 3b 70 | 61 63 6b 65 72 3d 27 43 |chiver;p|acker='C|
|00002210| 3a 52 75 6e 20 27 7c 7c | 50 69 63 74 75 72 65 5f |:Run '|||Picture_|
|00002220| 56 69 65 77 65 72 7c 7c | 27 20 27 3b 65 6e 64 3b |Viewer|||' ';end;|
|00002230| 77 68 65 6e 20 72 69 67 | 68 74 28 41 72 63 68 69 |when rig|ht(Archi|
|00002240| 76 65 72 2c 34 29 3d 27 | 49 4c 42 4d 27 20 74 68 |ver,4)='|ILBM' th|
|00002250| 65 6e 20 64 6f 3b 64 65 | 73 74 3d 41 72 63 68 69 |en do;de|st=Archi|
|00002260| 76 65 72 3b 70 61 63 6b | 65 72 3d 27 43 3a 52 75 |ver;pack|er='C:Ru|
|00002270| 6e 20 27 7c 7c 50 69 63 | 74 75 72 65 5f 56 69 65 |n '||Pic|ture_Vie|
|00002280| 77 65 72 7c 7c 27 20 27 | 3b 65 6e 64 0a 77 68 65 |wer||' '|;end.whe|
|00002290| 6e 20 72 69 67 68 74 28 | 41 72 63 68 69 76 65 72 |n right(|Archiver|
|000022a0| 2c 33 29 3d 27 45 58 45 | 27 20 74 68 65 6e 20 64 |,3)='EXE|' then d|
|000022b0| 6f 3b 64 65 73 74 3d 41 | 72 63 68 69 76 65 72 3b |o;dest=A|rchiver;|
|000022c0| 70 61 63 6b 65 72 3d 27 | 43 3a 52 75 6e 20 3e 4e |packer='|C:Run >N|
|000022d0| 49 4c 3a 20 27 3b 65 6e | 64 3b 77 68 65 6e 20 72 |IL: ';en|d;when r|
|000022e0| 69 67 68 74 28 41 72 63 | 68 69 76 65 72 2c 33 29 |ight(Arc|hiver,3)|
|000022f0| 3d 27 54 58 54 27 20 74 | 68 65 6e 20 64 6f 3b 64 |='TXT' t|hen do;d|
|00002300| 65 73 74 3d 41 72 63 68 | 69 76 65 72 7c 7c 47 75 |est=Arch|iver||Gu|
|00002310| 69 64 65 5f 53 63 72 65 | 65 6e 3b 70 61 63 6b 65 |ide_Scre|en;packe|
|00002320| 72 3d 27 43 3a 52 75 6e | 20 3e 4e 49 4c 3a 20 27 |r='C:Run| >NIL: '|
|00002330| 7c 7c 4d 75 6c 74 69 56 | 69 65 77 5f 50 61 74 68 |||MultiV|iew_Path|
|00002340| 7c 7c 27 20 27 3b 65 6e | 64 3b 77 68 65 6e 20 72 |||' ';en|d;when r|
|00002350| 69 67 68 74 28 41 72 63 | 68 69 76 65 72 2c 35 29 |ight(Arc|hiver,5)|
|00002360| 3d 27 47 55 49 44 45 27 | 20 74 68 65 6e 20 64 6f |='GUIDE'| then do|
|00002370| 3b 64 65 73 74 3d 41 72 | 63 68 69 76 65 72 7c 7c |;dest=Ar|chiver|||
|00002380| 47 75 69 64 65 5f 53 63 | 72 65 65 6e 3b 70 61 63 |Guide_Sc|reen;pac|
|00002390| 6b 65 72 3d 27 43 3a 52 | 75 6e 20 3e 4e 49 4c 3a |ker='C:R|un >NIL:|
|000023a0| 20 27 7c 7c 4d 75 6c 74 | 69 56 69 65 77 5f 50 61 | '||Mult|iView_Pa|
|000023b0| 74 68 7c 7c 27 20 27 3b | 65 6e 64 3b 77 68 65 6e |th||' ';|end;when|
|000023c0| 20 72 69 67 68 74 28 41 | 72 63 68 69 76 65 72 2c | right(A|rchiver,|
|000023d0| 33 29 3d 27 4e 46 4f 27 | 20 74 68 65 6e 20 64 6f |3)='NFO'| then do|
|000023e0| 3b 64 65 73 74 3d 41 72 | 63 68 69 76 65 72 7c 7c |;dest=Ar|chiver|||
|000023f0| 47 75 69 64 65 5f 53 63 | 72 65 65 6e 3b 70 61 63 |Guide_Sc|reen;pac|
|00002400| 6b 65 72 3d 27 43 3a 52 | 75 6e 20 3e 4e 49 4c 3a |ker='C:R|un >NIL:|
|00002410| 20 27 7c 7c 4d 75 6c 74 | 69 56 69 65 77 5f 50 61 | '||Mult|iView_Pa|
|00002420| 74 68 7c 7c 27 20 27 3b | 65 6e 64 3b 77 68 65 6e |th||' ';|end;when|
|00002430| 20 72 69 67 68 74 28 41 | 72 63 68 69 76 65 72 2c | right(A|rchiver,|
|00002440| 33 29 3d 27 44 4f 43 27 | 20 74 68 65 6e 20 64 6f |3)='DOC'| then do|
|00002450| 3b 64 65 73 74 3d 41 72 | 63 68 69 76 65 72 7c 7c |;dest=Ar|chiver|||
|00002460| 47 75 69 64 65 5f 53 63 | 72 65 65 6e 3b 70 61 63 |Guide_Sc|reen;pac|
|00002470| 6b 65 72 3d 27 43 3a 52 | 75 6e 20 3e 4e 49 4c 3a |ker='C:R|un >NIL:|
|00002480| 20 27 7c 7c 4d 75 6c 74 | 69 56 69 65 77 5f 50 61 | '||Mult|iView_Pa|
|00002490| 74 68 7c 7c 27 20 27 3b | 65 6e 64 3b 77 68 65 6e |th||' ';|end;when|
|000024a0| 20 72 69 67 68 74 28 41 | 72 63 68 69 76 65 72 2c | right(A|rchiver,|
|000024b0| 33 29 3d 27 44 4f 4b 27 | 20 74 68 65 6e 20 64 6f |3)='DOK'| then do|
|000024c0| 3b 64 65 73 74 3d 41 72 | 63 68 69 76 65 72 7c 7c |;dest=Ar|chiver|||
|000024d0| 47 75 69 64 65 5f 53 63 | 72 65 65 6e 3b 70 61 63 |Guide_Sc|reen;pac|
|000024e0| 6b 65 72 3d 27 43 3a 52 | 75 6e 20 3e 4e 49 4c 3a |ker='C:R|un >NIL:|
|000024f0| 20 27 7c 7c 4d 75 6c 74 | 69 56 69 65 77 5f 50 61 | '||Mult|iView_Pa|
|00002500| 74 68 7c 7c 27 20 27 3b | 65 6e 64 3b 77 68 65 6e |th||' ';|end;when|
|00002510| 20 72 69 67 68 74 28 41 | 72 63 68 69 76 65 72 2c | right(A|rchiver,|
|00002520| 34 29 3d 27 54 45 58 54 | 27 20 74 68 65 6e 20 64 |4)='TEXT|' then d|
|00002530| 6f 3b 64 65 73 74 3d 41 | 72 63 68 69 76 65 72 7c |o;dest=A|rchiver||
|00002540| 7c 47 75 69 64 65 5f 53 | 63 72 65 65 6e 3b 70 61 ||Guide_S|creen;pa|
|00002550| 63 6b 65 72 3d 27 43 3a | 52 75 6e 20 3e 4e 49 4c |cker='C:|Run >NIL|
|00002560| 3a 20 27 7c 7c 4d 75 6c | 74 69 56 69 65 77 5f 50 |: '||Mul|tiView_P|
|00002570| 61 74 68 7c 7c 27 20 27 | 3b 65 6e 64 3b 77 68 65 |ath||' '|;end;whe|
|00002580| 6e 20 72 69 67 68 74 28 | 41 72 63 68 69 76 65 72 |n right(|Archiver|
|00002590| 2c 33 29 3d 27 44 49 5a | 27 20 74 68 65 6e 20 64 |,3)='DIZ|' then d|
|000025a0| 6f 3b 64 65 73 74 3d 41 | 72 63 68 69 76 65 72 7c |o;dest=A|rchiver||
|000025b0| 7c 47 75 69 64 65 5f 53 | 63 72 65 65 6e 3b 70 61 ||Guide_S|creen;pa|
|000025c0| 63 6b 65 72 3d 27 43 3a | 52 75 6e 20 3e 4e 49 4c |cker='C:|Run >NIL|
|000025d0| 3a 20 27 7c 7c 4d 75 6c | 74 69 56 69 65 77 5f 50 |: '||Mul|tiView_P|
|000025e0| 61 74 68 7c 7c 27 20 27 | 3b 65 6e 64 3b 77 68 65 |ath||' '|;end;whe|
|000025f0| 6e 20 72 69 67 68 74 28 | 41 72 63 68 69 76 65 72 |n right(|Archiver|
|00002600| 2c 34 29 3d 27 38 53 56 | 58 27 20 74 68 65 6e 20 |,4)='8SV|X' then |
|00002610| 64 6f 3b 64 65 73 74 3d | 41 72 63 68 69 76 65 72 |do;dest=|Archiver|
|00002620| 3b 70 61 63 6b 65 72 3d | 27 43 3a 52 75 6e 20 3e |;packer=|'C:Run >|
|00002630| 4e 49 4c 3a 20 27 7c 7c | 50 6c 61 79 5f 50 61 74 |NIL: '|||Play_Pat|
|00002640| 68 7c 7c 27 20 27 3b 65 | 6e 64 3b 77 68 65 6e 20 |h||' ';e|nd;when |
|00002650| 72 69 67 68 74 28 41 72 | 63 68 69 76 65 72 2c 33 |right(Ar|chiver,3|
|00002660| 29 3d 27 57 41 56 27 20 | 74 68 65 6e 20 64 6f 3b |)='WAV' |then do;|
|00002670| 64 65 73 74 3d 41 72 63 | 68 69 76 65 72 3b 70 61 |dest=Arc|hiver;pa|
|00002680| 63 6b 65 72 3d 27 43 3a | 52 75 6e 20 3e 4e 49 4c |cker='C:|Run >NIL|
|00002690| 3a 20 27 7c 7c 50 6c 61 | 79 5f 50 61 74 68 7c 7c |: '||Pla|y_Path|||
|000026a0| 27 20 27 3b 65 6e 64 3b | 77 68 65 6e 20 72 69 67 |' ';end;|when rig|
|000026b0| 68 74 28 41 72 63 68 69 | 76 65 72 2c 33 29 3d 27 |ht(Archi|ver,3)='|
|000026c0| 53 4e 44 27 20 74 68 65 | 6e 20 64 6f 3b 64 65 73 |SND' the|n do;des|
|000026d0| 74 3d 41 72 63 68 69 76 | 65 72 3b 70 61 63 6b 65 |t=Archiv|er;packe|
|000026e0| 72 3d 27 43 3a 52 75 6e | 20 3e 4e 49 4c 3a 20 27 |r='C:Run| >NIL: '|
|000026f0| 7c 7c 50 6c 61 79 5f 50 | 61 74 68 7c 7c 27 20 27 |||Play_P|ath||' '|
|00002700| 3b 65 6e 64 3b 6f 74 68 | 65 72 77 69 73 65 20 64 |;end;oth|erwise d|
|00002710| 6f 3b 64 65 73 74 3d 46 | 69 6c 65 62 61 73 65 7c |o;dest=F|ilebase||
|00002720| 7c 27 23 3f 20 27 7c 7c | 55 6e 70 61 63 6b 5f 44 ||'#? '|||Unpack_D|
|00002730| 69 72 7c 7c 27 20 63 6c | 6f 6e 65 20 3e 43 4f 4e |ir||' cl|one >CON|
|00002740| 3a 27 3b 70 61 63 6b 65 | 72 3d 27 43 3a 52 75 6e |:';packe|r='C:Run|
|00002750| 20 3e 4e 49 4c 3a 20 43 | 3a 43 6f 70 79 20 27 3b | >NIL: C|:Copy ';|
|00002760| 65 6e 64 3b 65 6e 64 3b | 49 66 20 41 64 64 43 6f |end;end;|If AddCo|
|00002770| 6d 6d 65 6e 74 3d 31 20 | 74 68 65 6e 20 64 6f 3b |mment=1 |then do;|
|00002780| 41 64 64 72 65 73 73 20 | 63 6f 6d 6d 61 6e 64 20 |Address |command |
|00002790| 27 52 75 6e 20 3e 4e 49 | 4c 3a 20 43 3a 46 69 6c |'Run >NI|L: C:Fil|
|000027a0| 65 6e 6f 74 65 20 27 7c | 7c 53 6f 75 72 63 65 7c |enote '|||Source||
|000027b0| 7c 46 69 6c 65 73 2e 69 | 7c 7c 27 20 22 27 7c 7c ||Files.i|||' "'|||
|000027c0| 53 7c 7c 27 22 20 3e 4e | 49 4c 3a 27 3b 41 64 64 |S||'" >N|IL:';Add|
|000027d0| 72 65 73 73 20 63 6f 6d | 6d 61 6e 64 20 27 52 75 |ress com|mand 'Ru|
|000027e0| 6e 20 3e 4e 49 4c 3a 20 | 43 3a 46 69 6c 65 6e 6f |n >NIL: |C:Fileno|
|000027f0| 74 65 20 27 7c 7c 53 6f | 75 72 63 65 7c 7c 52 65 |te '||So|urce||Re|
|00002800| 61 64 6d 65 46 69 6c 65 | 7c 7c 27 20 22 27 7c 7c |admeFile|||' "'|||
|00002810| 53 7c 7c 27 22 20 3e 4e | 49 4c 3a 27 3b 65 6e 64 |S||'" >N|IL:';end|
|00002820| 3b 69 66 20 4d 61 6b 65 | 47 75 69 64 65 3d 31 20 |;if Make|Guide=1 |
|00002830| 74 68 65 6e 20 64 6f 3b | 43 61 6c 6c 20 57 72 69 |then do;|Call Wri|
|00002840| 74 65 4c 4e 28 47 55 49 | 44 45 2c 27 20 20 40 7b |teLN(GUI|DE,' @{|
|00002850| 22 20 27 7c 7c 53 70 61 | 63 65 53 75 66 66 69 78 |" '||Spa|ceSuffix|
|00002860| 28 46 69 6c 65 73 2e 69 | 2c 46 69 6c 65 6e 61 6d |(Files.i|,Filenam|
|00002870| 65 5f 4c 65 6e 67 74 68 | 29 7c 7c 27 20 22 20 73 |e_Length|)||' " s|
|00002880| 79 73 74 65 6d 20 22 27 | 7c 7c 50 61 63 6b 65 72 |ystem "'|||Packer|
|00002890| 7c 7c 53 6f 75 72 63 65 | 7c 7c 64 65 73 74 7c 7c |||Source|||dest|||
|000028a0| 27 22 7d 20 27 7c 7c 46 | 69 6c 65 44 61 74 65 2e |'"} '||F|ileDate.|
|000028b0| 69 7c 7c 27 20 40 7b 22 | 20 27 7c 7c 53 70 61 63 |i||' @{"| '||Spac|
|000028c0| 65 53 75 66 66 69 78 28 | 6c 65 66 74 28 53 2c 53 |eSuffix(|left(S,S|
|000028d0| 68 6f 72 74 5f 4c 65 6e | 67 74 68 29 2c 53 68 6f |hort_Len|gth),Sho|
|000028e0| 72 74 5f 4c 65 6e 67 74 | 68 29 7c 7c 27 20 22 20 |rt_Lengt|h)||' " |
|000028f0| 73 79 73 74 65 6d 20 22 | 20 43 3a 52 75 6e 20 3e |system "| C:Run >|
|00002900| 4e 49 4c 3a 20 27 7c 7c | 4d 75 6c 74 69 56 69 65 |NIL: '|||MultiVie|
|00002910| 77 5f 50 61 74 68 7c 7c | 27 20 27 7c 7c 53 6f 75 |w_Path|||' '||Sou|
|00002920| 72 63 65 7c 7c 52 65 61 | 64 6d 65 46 69 6c 65 7c |rce||Rea|dmeFile||
|00002930| 7c 47 75 69 64 65 5f 53 | 63 72 65 65 6e 7c 7c 27 ||Guide_S|creen||'|
|00002940| 22 7d 20 40 7b 22 20 45 | 64 20 22 20 73 79 73 74 |"} @{" E|d " syst|
|00002950| 65 6d 20 22 43 3a 45 44 | 20 27 7c 7c 73 6f 75 72 |em "C:ED| '||sour|
|00002960| 63 65 7c 7c 46 69 6c 65 | 42 61 73 65 7c 7c 27 2e |ce||File|Base||'.|
|00002970| 52 65 61 64 4d 65 22 7d | 20 40 7b 22 20 44 65 6c |ReadMe"}| @{" Del|
|00002980| 20 22 20 73 79 73 74 65 | 6d 20 22 43 3a 44 65 6c | " syste|m "C:Del|
|00002990| 65 74 65 20 27 7c 7c 73 | 6f 75 72 63 65 7c 7c 46 |ete '||s|ource||F|
|000029a0| 69 6c 65 42 61 73 65 7c | 7c 27 23 3f 20 3e 4e 49 |ileBase|||'#? >NI|
|000029b0| 4c 3a 22 7d 27 29 3b 69 | 66 20 47 75 69 64 65 5f |L:"}');i|f Guide_|
|000029c0| 4c 69 6e 65 53 70 61 63 | 65 3d 31 20 74 68 65 6e |LineSpac|e=1 then|
|000029d0| 20 43 61 6c 6c 20 57 72 | 69 74 65 4c 4e 28 47 55 | Call Wr|iteLN(GU|
|000029e0| 49 44 45 2c 27 27 29 3b | 65 6e 64 3b 43 61 6c 6c |IDE,'');|end;Call|
|000029f0| 20 43 6c 6f 73 65 28 52 | 45 41 44 4d 45 29 3b 65 | Close(R|EADME);e|
|00002a00| 6e 64 3b 69 66 20 4d 61 | 6b 65 47 75 69 64 65 3d |nd;if Ma|keGuide=|
|00002a10| 31 20 74 68 65 6e 20 64 | 6f 3b 69 66 20 44 69 72 |1 then d|o;if Dir|
|00002a20| 5f 43 6f 75 6e 74 3e 30 | 20 74 68 65 6e 20 64 6f |_Count>0| then do|
|00002a30| 3b 43 61 6c 6c 20 57 72 | 69 74 65 4c 4e 28 47 55 |;Call Wr|iteLN(GU|
|00002a40| 49 44 45 2c 27 20 40 7b | 55 7d 40 7b 42 7d 27 7c |IDE,' @{|U}@{B}'||
|00002a50| 7c 63 65 6e 74 65 72 28 | 27 53 75 62 20 44 69 72 ||center(|'Sub Dir|
|00002a60| 65 63 74 6f 72 69 65 73 | 27 2c 38 30 29 7c 7c 27 |ectories|',80)||'|
|00002a70| 40 7b 55 55 7d 40 7b 55 | 42 7d 27 29 3b 43 61 6c |@{UU}@{U|B}');Cal|
|00002a80| 6c 20 57 72 69 74 65 4c | 4e 28 47 55 49 44 45 2c |l WriteL|N(GUIDE,|
|00002a90| 27 27 29 3b 73 75 62 73 | 3d 27 27 3b 6d 61 78 6f |'');subs|='';maxo|
|00002aa0| 73 3d 30 3b 64 6f 20 69 | 3d 31 20 74 6f 20 44 69 |s=0;do i|=1 to Di|
|00002ab0| 72 5f 43 6f 75 6e 74 3b | 73 75 62 73 3d 73 75 62 |r_Count;|subs=sub|
|00002ac0| 73 20 27 20 20 40 7b 22 | 20 27 7c 7c 43 65 6e 74 |s ' @{"| '||Cent|
|00002ad0| 72 65 28 44 69 72 73 2e | 69 2c 31 38 29 7c 7c 27 |re(Dirs.|i,18)||'|
|00002ae0| 20 22 20 73 79 73 74 65 | 6d 20 22 52 75 6e 20 3e | " syste|m "Run >|
|00002af0| 4e 49 4c 3a 20 63 3a 47 | 69 67 61 47 75 69 64 65 |NIL: c:G|igaGuide|
|00002b00| 20 27 7c 7c 73 6f 75 72 | 63 65 7c 7c 64 69 72 73 | '||sour|ce||dirs|
|00002b10| 2e 69 7c 7c 27 20 27 7c | 7c 4f 70 74 5f 53 74 72 |.i||' '|||Opt_Str|
|00002b20| 69 6e 67 7c 7c 27 22 7d | 27 3b 73 75 62 5f 6f 6b |ing||'"}|';sub_ok|
|00002b30| 3d 30 3b 6d 61 78 6f 73 | 3d 6d 61 78 6f 73 2b 31 |=0;maxos|=maxos+1|
|00002b40| 3b 69 66 20 6d 61 78 6f | 73 3d 34 20 74 68 65 6e |;if maxo|s=4 then|
|00002b50| 20 64 6f 3b 6d 61 78 6f | 73 3d 30 3b 43 61 6c 6c | do;maxo|s=0;Call|
|00002b60| 20 57 72 69 74 65 4c 4e | 28 47 55 49 44 45 2c 73 | WriteLN|(GUIDE,s|
|00002b70| 75 62 73 29 3b 73 75 62 | 73 3d 27 27 3b 73 75 62 |ubs);sub|s='';sub|
|00002b80| 5f 6f 6b 3d 31 3b 65 6e | 64 3b 65 6e 64 3b 69 66 |_ok=1;en|d;end;if|
|00002b90| 20 73 75 62 5f 6f 6b 3d | 30 20 74 68 65 6e 20 43 | sub_ok=|0 then C|
|00002ba0| 61 6c 6c 20 57 72 69 74 | 65 4c 4e 28 47 55 49 44 |all Writ|eLN(GUID|
|00002bb0| 45 2c 73 75 62 73 29 3b | 43 61 6c 6c 20 57 72 69 |E,subs);|Call Wri|
|00002bc0| 74 65 4c 4e 28 47 55 49 | 44 45 2c 27 27 29 3b 65 |teLN(GUI|DE,'');e|
|00002bd0| 6e 64 3b 43 61 6c 6c 20 | 57 72 69 74 65 4c 4e 28 |nd;Call |WriteLN(|
|00002be0| 47 55 49 44 45 2c 27 40 | 65 6e 64 6e 6f 64 65 27 |GUIDE,'@|endnode'|
|00002bf0| 29 3b 43 61 6c 6c 20 57 | 72 69 74 65 4c 4e 28 47 |);Call W|riteLN(G|
|00002c00| 55 49 44 45 2c 27 40 6e | 6f 64 65 20 49 6e 66 6f |UIDE,'@n|ode Info|
|00002c10| 20 22 47 69 67 61 47 75 | 69 64 65 20 49 6e 66 6f | "GigaGu|ide Info|
|00002c20| 2e 22 27 7c 7c 4e 4c 29 | 3b 43 61 6c 6c 20 57 72 |."'||NL)|;Call Wr|
|00002c30| 69 74 65 4c 4e 28 47 55 | 49 44 45 2c 27 20 40 7b |iteLN(GU|IDE,' @{|
|00002c40| 42 7d 47 69 67 61 47 75 | 69 64 65 20 63 72 65 61 |B}GigaGu|ide crea|
|00002c50| 74 65 64 20 62 79 20 27 | 7c 7c 41 75 74 68 6f 72 |ted by '|||Author|
|00002c60| 7c 7c 27 20 2f 20 47 69 | 47 41 20 50 72 6f 64 75 |||' / Gi|GA Produ|
|00002c70| 63 74 69 6f 6e 73 2e 20 | 28 43 29 20 27 7c 7c 4c |ctions. |(C) '||L|
|00002c80| 61 73 74 75 70 7c 7c 27 | 40 7b 55 42 7d 27 7c 7c |astup||'|@{UB}'|||
|00002c90| 4e 4c 29 3b 43 61 6c 6c | 20 57 72 69 74 65 4c 4e |NL);Call| WriteLN|
|00002ca0| 28 47 55 49 44 45 2c 27 | 20 54 68 69 73 20 70 72 |(GUIDE,'| This pr|
|00002cb0| 6f 67 72 61 6d 20 69 73 | 20 40 7b 42 7d 4d 41 49 |ogram is| @{B}MAI|
|00002cc0| 4c 57 41 52 45 40 7b 55 | 42 7d 2e 2e 2e 20 45 2d |LWARE@{U|B}... E-|
|00002cd0| 4d 61 69 6c 3a 20 66 69 | 6e 69 2e 61 6c 72 69 6e |Mail: fi|ni.alrin|
|00002ce0| 67 40 6e 65 74 6d 65 64 | 69 61 2e 64 6b 20 20 2d |g@netmed|ia.dk -|
|00002cf0| 3e 20 53 75 62 6a 65 63 | 74 3a 20 47 69 67 61 47 |> Subjec|t: GigaG|
|00002d00| 75 69 64 65 2e 27 7c 7c | 4e 4c 29 3b 43 61 6c 6c |uide.'|||NL);Call|
|00002d10| 20 57 72 69 74 65 4c 4e | 28 47 55 49 44 45 2c 22 | WriteLN|(GUIDE,"|
|00002d20| 20 43 6c 69 63 6b 20 6f | 6e 20 74 68 65 20 66 69 | Click o|n the fi|
|00002d30| 6c 65 6e 61 6d 65 20 74 | 6f 20 64 65 63 6f 6d 70 |lename t|o decomp|
|00002d40| 72 65 73 73 20 61 72 63 | 68 69 76 65 2c 20 6f 72 |ress arc|hive, or|
|00002d50| 20 74 6f 20 76 69 65 77 | 20 4a 50 45 47 27 73 20 | to view| JPEG's |
|00002d60| 61 6e 64 20 47 49 46 27 | 73 22 7c 7c 4e 4c 29 3b |and GIF'|s"||NL);|
|00002d70| 43 61 6c 6c 20 57 72 69 | 74 65 4c 4e 28 47 55 49 |Call Wri|teLN(GUI|
|00002d80| 44 45 2c 27 20 43 6c 69 | 63 6b 20 6f 6e 20 74 68 |DE,' Cli|ck on th|
|00002d90| 65 20 53 68 6f 72 74 3a | 20 44 65 73 63 72 69 70 |e Short:| Descrip|
|00002da0| 74 69 6f 6e 20 74 6f 20 | 76 69 65 77 20 74 68 65 |tion to |view the|
|00002db0| 20 72 65 61 64 6d 65 20 | 66 69 6c 65 2e 2e 2e 27 | readme |file...'|
|00002dc0| 7c 7c 4e 4c 29 3b 43 61 | 6c 6c 20 57 72 69 74 65 |||NL);Ca|ll Write|
|00002dd0| 4c 4e 28 47 55 49 44 45 | 2c 27 20 54 68 65 20 67 |LN(GUIDE|,' The g|
|00002de0| 75 69 64 65 20 69 73 20 | 6e 6f 74 20 6c 6f 63 6b |uide is |not lock|
|00002df0| 65 64 20 77 68 69 6c 65 | 20 75 6e 63 6f 6d 70 72 |ed while| uncompr|
|00002e00| 65 73 73 69 6e 67 20 6f | 72 20 72 65 61 64 69 6e |essing o|r readin|
|00002e10| 67 20 72 65 61 64 6d 65 | 20 66 69 6c 65 73 2c 27 |g readme| files,'|
|00002e20| 7c 7c 4e 4c 29 3b 43 61 | 6c 6c 20 57 72 69 74 65 |||NL);Ca|ll Write|
|00002e30| 4c 4e 28 47 55 49 44 45 | 2c 27 20 53 6f 20 79 6f |LN(GUIDE|,' So yo|
|00002e40| 75 20 63 61 6e 20 72 65 | 61 64 20 6f 72 20 75 6e |u can re|ad or un|
|00002e50| 70 61 63 6b 20 6d 61 6e | 79 20 74 68 69 6e 67 73 |pack man|y things|
|00002e60| 20 61 74 20 61 20 74 69 | 6d 65 2e 2e 2e 27 29 3b | at a ti|me...');|
|00002e70| 43 61 6c 6c 20 57 72 69 | 74 65 4c 4e 28 47 55 49 |Call Wri|teLN(GUI|
|00002e80| 44 45 2c 27 20 49 20 68 | 6f 70 65 20 79 6f 75 20 |DE,' I h|ope you |
|00002e90| 77 69 6c 6c 20 65 6e 6a | 6f 79 20 74 68 69 73 20 |will enj|oy this |
|00002ea0| 70 72 6f 67 72 61 6d 2e | 2e 2e 27 7c 7c 4e 4c 29 |program.|..'||NL)|
|00002eb0| 3b 43 61 6c 6c 20 57 72 | 69 74 65 4c 4e 28 47 55 |;Call Wr|iteLN(GU|
|00002ec0| 49 44 45 2c 27 20 53 65 | 6e 64 20 6d 65 20 61 20 |IDE,' Se|nd me a |
|00002ed0| 28 79 6f 75 72 21 29 20 | 63 6f 6f 6c 20 70 72 6f |(your!) |cool pro|
|00002ee0| 67 72 61 6d 2c 20 70 69 | 63 74 75 72 65 2c 20 6d |gram, pi|cture, m|
|00002ef0| 6f 64 75 6c 65 20 65 74 | 63 2e 2e 2e 20 68 65 20 |odule et|c... he |
|00002f00| 68 65 21 21 20 3b 2d 29 | 27 29 3b 43 61 6c 6c 20 |he!! ;-)|');Call |
|00002f10| 57 72 69 74 65 4c 4e 28 | 47 55 49 44 45 2c 27 20 |WriteLN(|GUIDE,' |
|00002f20| 42 75 67 2d 72 65 70 6f | 72 74 73 20 6f 72 20 63 |Bug-repo|rts or c|
|00002f30| 6f 6f 6c 20 69 64 65 61 | 73 2c 20 61 72 65 20 76 |ool idea|s, are v|
|00002f40| 65 72 79 20 77 65 6c 63 | 6f 6d 65 2e 2e 2e 20 3b |ery welc|ome... ;|
|00002f50| 2d 29 27 7c 7c 4e 4c 29 | 3b 43 61 6c 6c 20 57 72 |-)'||NL)|;Call Wr|
|00002f60| 69 74 65 4c 4e 28 47 55 | 49 44 45 2c 27 20 40 7b |iteLN(GU|IDE,' @{|
|00002f70| 42 7d 4e 4f 54 45 3a 20 | 41 6d 69 6e 65 74 47 75 |B}NOTE: |AminetGu|
|00002f80| 69 64 65 20 68 61 73 20 | 63 68 61 6e 67 65 64 20 |ide has |changed |
|00002f90| 6e 61 6d 65 20 74 6f 20 | 47 69 67 61 47 75 69 64 |name to |GigaGuid|
|00002fa0| 65 2c 20 62 65 63 61 75 | 73 65 20 69 74 20 63 61 |e, becau|se it ca|
|00002fb0| 6e 20 6e 6f 77 20 62 65 | 20 75 73 65 64 20 66 6f |n now be| used fo|
|00002fc0| 72 20 6d 75 63 68 20 6d | 6f 72 65 2e 2e 2e 40 7b |r much m|ore...@{|
|00002fd0| 55 42 7d 27 29 3b 43 61 | 6c 6c 20 57 72 69 74 65 |UB}');Ca|ll Write|
|00002fe0| 4c 4e 28 47 55 49 44 45 | 2c 27 20 40 7b 42 7d 4f |LN(GUIDE|,' @{B}O|
|00002ff0| 70 74 69 6f 6e 73 3a 40 | 7b 55 42 7d 27 7c 7c 4e |ptions:@|{UB}'||N|
|00003000| 4c 29 3b 43 61 6c 6c 20 | 57 72 69 74 65 4c 4e 28 |L);Call |WriteLN(|
|00003010| 47 55 49 44 45 2c 6f 70 | 20 4e 4c 29 3b 43 61 6c |GUIDE,op| NL);Cal|
|00003020| 6c 20 57 72 69 74 65 4c | 4e 28 47 55 49 44 45 2c |l WriteL|N(GUIDE,|
|00003030| 4e 4c 20 53 75 70 20 4e | 4c 29 3b 43 61 6c 6c 20 |NL Sup N|L);Call |
|00003040| 57 72 69 74 65 4c 4e 28 | 47 55 49 44 45 2c 54 41 |WriteLN(|GUIDE,TA|
|00003050| 42 7c 7c 27 41 6e 79 20 | 6f 74 68 65 72 20 66 69 |B||'Any |other fi|
|00003060| 6c 65 73 2c 20 77 69 6c | 6c 20 62 65 20 63 6f 70 |les, wil|l be cop|
|00003070| 69 65 64 20 28 43 6c 6f | 6e 65 64 29 20 74 6f 20 |ied (Clo|ned) to |
|00003080| 74 68 65 20 73 65 6c 65 | 63 74 65 64 20 75 6e 70 |the sele|cted unp|
|00003090| 61 63 6b 20 64 69 72 2e | 27 29 3b 43 61 6c 6c 20 |ack dir.|');Call |
|000030a0| 57 72 69 74 65 4c 4e 28 | 47 55 49 44 45 2c 27 40 |WriteLN(|GUIDE,'@|
|000030b0| 65 6e 64 6e 6f 64 65 27 | 29 3b 43 61 6c 6c 20 43 |endnode'|);Call C|
|000030c0| 6c 6f 73 65 28 47 55 49 | 44 45 29 3b 61 64 64 72 |lose(GUI|DE);addr|
|000030d0| 65 73 73 20 63 6f 6d 6d | 61 6e 64 20 22 43 3a 52 |ess comm|and "C:R|
|000030e0| 75 6e 20 3e 4e 49 4c 3a | 20 22 7c 7c 4d 75 6c 74 |un >NIL:| "||Mult|
|000030f0| 69 56 69 65 77 5f 50 61 | 74 68 7c 7c 27 20 22 27 |iView_Pa|th||' "'|
|00003100| 7c 7c 47 75 69 64 65 5f | 44 65 73 74 7c 7c 27 2d |||Guide_|Dest||'-|
|00003110| 47 69 47 41 2e 67 75 69 | 64 65 22 20 27 7c 7c 47 |GiGA.gui|de" '||G|
|00003120| 75 69 64 65 5f 53 63 72 | 65 65 6e 3b 65 6e 64 3b |uide_Scr|een;end;|
|00003130| 69 66 20 41 72 63 68 69 | 76 65 5f 45 78 74 72 61 |if Archi|ve_Extra|
|00003140| 63 74 3d 31 20 74 68 65 | 6e 20 64 6f 3b 41 64 64 |ct=1 the|n do;Add|
|00003150| 72 65 73 73 20 43 6f 6d | 6d 61 6e 64 20 27 43 3a |ress Com|mand 'C:|
|00003160| 44 65 6c 65 74 65 20 27 | 7c 7c 4c 68 61 5f 74 65 |Delete '|||Lha_te|
|00003170| 6d 70 3b 65 6e 64 3b 65 | 78 69 74 28 30 29 3b 47 |mp;end;e|xit(0);G|
|00003180| 65 74 44 69 72 3a 20 50 | 72 6f 63 65 64 75 72 65 |etDir: P|rocedure|
|00003190| 20 45 78 70 6f 73 65 20 | 46 69 6c 65 73 2e 20 46 | Expose |Files. F|
|000031a0| 69 6c 65 44 61 74 65 2e | 3b 50 61 72 73 65 20 41 |ileDate.|;Parse A|
|000031b0| 72 67 20 53 6f 75 72 63 | 65 44 69 72 2c 53 6f 72 |rg Sourc|eDir,Sor|
|000031c0| 74 6d 6f 64 65 3b 46 69 | 6c 65 5f 63 6f 75 6e 74 |tmode;Fi|le_count|
|000031d0| 3d 30 3b 41 64 64 72 65 | 73 73 20 43 6f 6d 6d 61 |=0;Addre|ss Comma|
|000031e0| 6e 64 20 27 43 3a 44 69 | 72 49 49 20 22 27 7c 7c |nd 'C:Di|rII "'|||
|000031f0| 53 6f 75 72 63 65 44 69 | 72 7c 7c 27 22 20 6c 66 |SourceDi|r||'" lf|
|00003200| 6f 72 6d 61 74 3d 22 25 | 6e 20 25 64 22 20 42 44 |ormat="%|n %d" BD|
|00003210| 20 4e 49 20 46 49 4c 45 | 53 20 44 45 53 43 20 3e | NI FILE|S DESC >|
|00003220| 54 3a 4d 66 69 6c 65 31 | 2e 74 6d 70 27 3b 69 66 |T:Mfile1|.tmp';if|
|00003230| 20 55 70 70 65 72 28 53 | 6f 72 74 4d 6f 64 65 29 | Upper(S|ortMode)|
|00003240| 3d 27 43 41 53 45 27 20 | 74 68 65 6e 20 64 6f 3b |='CASE' |then do;|
|00003250| 46 69 6c 65 73 69 7a 65 | 3d 77 6f 72 64 28 73 74 |Filesize|=word(st|
|00003260| 61 74 65 66 28 27 54 3a | 4d 66 69 6c 65 31 2e 74 |atef('T:|Mfile1.t|
|00003270| 6d 70 27 29 2c 32 29 3b | 69 66 20 76 61 6c 75 65 |mp'),2);|if value|
|00003280| 28 66 69 6c 65 73 69 7a | 65 29 3e 30 20 74 68 65 |(filesiz|e)>0 the|
|00003290| 6e 20 41 64 64 72 65 73 | 73 20 43 6f 6d 6d 61 6e |n Addres|s Comman|
|000032a0| 64 20 27 43 3a 53 6f 72 | 74 20 54 3a 4d 66 69 6c |d 'C:Sor|t T:Mfil|
|000032b0| 65 31 2e 74 6d 70 20 54 | 3a 4d 66 69 6c 65 31 2e |e1.tmp T|:Mfile1.|
|000032c0| 74 6d 70 20 3e 4e 49 4c | 3a 27 3b 65 6e 64 3b 53 |tmp >NIL|:';end;S|
|000032d0| 75 63 63 65 73 73 3d 4f | 70 65 6e 28 44 41 54 41 |uccess=O|pen(DATA|
|000032e0| 2c 27 54 3a 4d 66 69 6c | 65 31 2e 74 6d 70 27 2c |,'T:Mfil|e1.tmp',|
|000032f0| 27 52 65 61 64 27 29 3b | 69 66 20 73 75 63 63 65 |'Read');|if succe|
|00003300| 73 73 3d 31 20 74 68 65 | 6e 20 64 6f 3b 66 3d 31 |ss=1 the|n do;f=1|
|00003310| 3b 44 6f 20 77 68 69 6c | 65 20 65 6f 66 28 44 41 |;Do whil|e eof(DA|
|00003320| 54 41 29 7e 3d 31 3b 66 | 69 6c 65 5f 74 65 6d 70 |TA)~=1;f|ile_temp|
|00003330| 3d 52 65 61 64 6c 6e 28 | 44 41 54 41 29 3b 69 66 |=Readln(|DATA);if|
|00003340| 20 65 6f 66 28 44 41 54 | 41 29 7e 3d 31 20 74 68 | eof(DAT|A)~=1 th|
|00003350| 65 6e 20 64 6f 3b 46 69 | 6c 65 73 2e 66 3d 73 75 |en do;Fi|les.f=su|
|00003360| 62 77 6f 72 64 28 66 69 | 6c 65 5f 74 65 6d 70 2c |bword(fi|le_temp,|
|00003370| 31 2c 77 6f 72 64 73 28 | 66 69 6c 65 5f 74 65 6d |1,words(|file_tem|
|00003380| 70 29 2d 31 29 3b 46 69 | 6c 65 44 61 74 65 2e 66 |p)-1);Fi|leDate.f|
|00003390| 3d 77 6f 72 64 28 66 69 | 6c 65 5f 74 65 6d 70 2c |=word(fi|le_temp,|
|000033a0| 77 6f 72 64 73 28 66 69 | 6c 65 5f 74 65 6d 70 29 |words(fi|le_temp)|
|000033b0| 29 3b 66 3d 66 2b 31 3b | 65 6e 64 3b 65 6e 64 3b |);f=f+1;|end;end;|
|000033c0| 43 61 6c 6c 20 43 6c 6f | 73 65 28 44 41 54 41 29 |Call Clo|se(DATA)|
|000033d0| 3b 66 3d 31 3b 64 6f 20 | 77 68 69 6c 65 20 6c 65 |;f=1;do |while le|
|000033e0| 6e 67 74 68 28 46 69 6c | 65 73 2e 46 29 3e 31 3b |ngth(Fil|es.F)>1;|
|000033f0| 46 69 6c 65 5f 63 6f 75 | 6e 74 3d 46 69 6c 65 5f |File_cou|nt=File_|
|00003400| 63 6f 75 6e 74 2b 31 3b | 46 3d 46 2b 31 3b 65 6e |count+1;|F=F+1;en|
|00003410| 64 3b 65 6e 64 3b 41 64 | 64 72 65 73 73 20 43 6f |d;end;Ad|dress Co|
|00003420| 6d 6d 61 6e 64 20 22 43 | 3a 44 65 6c 65 74 65 20 |mmand "C|:Delete |
|00003430| 54 3a 4d 66 69 6c 65 31 | 2e 74 6d 70 20 51 75 69 |T:Mfile1|.tmp Qui|
|00003440| 65 74 22 3b 52 65 74 75 | 72 6e 20 46 69 6c 65 5f |et";Retu|rn File_|
|00003450| 63 6f 75 6e 74 3b 47 65 | 74 44 69 72 73 4f 6e 6c |count;Ge|tDirsOnl|
|00003460| 79 3a 20 50 72 6f 63 65 | 64 75 72 65 20 45 78 70 |y: Proce|dure Exp|
|00003470| 6f 73 65 20 44 69 72 73 | 2e 3b 50 61 72 73 65 20 |ose Dirs|.;Parse |
|00003480| 41 72 67 20 53 6f 75 72 | 63 65 44 69 72 3b 44 69 |Arg Sour|ceDir;Di|
|00003490| 72 5f 63 6f 75 6e 74 3d | 30 3b 41 64 64 72 65 73 |r_count=|0;Addres|
|000034a0| 73 20 43 6f 6d 6d 61 6e | 64 20 27 43 3a 4c 69 73 |s Comman|d 'C:Lis|
|000034b0| 74 20 3e 4e 49 4c 3a 20 | 22 27 53 6f 75 72 63 65 |t >NIL: |"'Source|
|000034c0| 44 69 72 27 22 20 54 4f | 20 54 3a 4d 66 69 6c 65 |Dir'" TO| T:Mfile|
|000034d0| 31 2e 74 6d 70 20 44 49 | 52 53 20 4c 46 4f 52 4d |1.tmp DI|RS LFORM|
|000034e0| 41 54 20 22 25 73 22 27 | 3b 46 69 6c 65 73 69 7a |AT "%s"'|;Filesiz|
|000034f0| 65 3d 77 6f 72 64 28 73 | 74 61 74 65 66 28 27 54 |e=word(s|tatef('T|
|00003500| 3a 4d 66 69 6c 65 31 2e | 74 6d 70 27 29 2c 32 29 |:Mfile1.|tmp'),2)|
|00003510| 3b 69 66 20 76 61 6c 75 | 65 28 66 69 6c 65 73 69 |;if valu|e(filesi|
|00003520| 7a 65 29 3e 30 20 74 68 | 65 6e 20 41 64 64 72 65 |ze)>0 th|en Addre|
|00003530| 73 73 20 43 6f 6d 6d 61 | 6e 64 20 27 43 3a 53 6f |ss Comma|nd 'C:So|
|00003540| 72 74 20 54 3a 4d 66 69 | 6c 65 31 2e 74 6d 70 20 |rt T:Mfi|le1.tmp |
|00003550| 54 3a 4d 66 69 6c 65 32 | 2e 74 6d 70 20 3e 4e 49 |T:Mfile2|.tmp >NI|
|00003560| 4c 3a 27 3b 53 75 63 63 | 65 73 73 3d 4f 70 65 6e |L:';Succ|ess=Open|
|00003570| 28 44 41 54 41 2c 27 54 | 3a 4d 66 69 6c 65 32 2e |(DATA,'T|:Mfile2.|
|00003580| 74 6d 70 27 2c 27 52 65 | 61 64 27 29 3b 69 66 20 |tmp','Re|ad');if |
|00003590| 73 75 63 63 65 73 73 3d | 31 20 74 68 65 6e 20 64 |success=|1 then d|
|000035a0| 6f 3b 66 3d 31 3b 44 6f | 20 77 68 69 6c 65 20 65 |o;f=1;Do| while e|
|000035b0| 6f 66 28 44 41 54 41 29 | 7e 3d 31 3b 44 69 72 73 |of(DATA)|~=1;Dirs|
|000035c0| 2e 66 3d 52 65 61 64 6c | 6e 28 44 41 54 41 29 3b |.f=Readl|n(DATA);|
|000035d0| 66 3d 66 2b 31 3b 65 6e | 64 3b 43 61 6c 6c 20 43 |f=f+1;en|d;Call C|
|000035e0| 6c 6f 73 65 28 44 41 54 | 41 29 3b 66 3d 31 3b 64 |lose(DAT|A);f=1;d|
|000035f0| 6f 20 77 68 69 6c 65 20 | 6c 65 6e 67 74 68 28 44 |o while |length(D|
|00003600| 69 72 73 2e 46 29 3e 31 | 3b 44 69 72 5f 63 6f 75 |irs.F)>1|;Dir_cou|
|00003610| 6e 74 3d 44 69 72 5f 63 | 6f 75 6e 74 2b 31 3b 46 |nt=Dir_c|ount+1;F|
|00003620| 3d 46 2b 31 3b 65 6e 64 | 3b 65 6e 64 3b 41 64 64 |=F+1;end|;end;Add|
|00003630| 72 65 73 73 20 43 6f 6d | 6d 61 6e 64 20 22 43 3a |ress Com|mand "C:|
|00003640| 44 65 6c 65 74 65 20 54 | 3a 4d 66 69 6c 65 31 2e |Delete T|:Mfile1.|
|00003650| 74 6d 70 20 54 3a 4d 66 | 69 6c 65 32 2e 74 6d 70 |tmp T:Mf|ile2.tmp|
|00003660| 20 51 75 69 65 74 22 3b | 52 65 74 75 72 6e 20 44 | Quiet";|Return D|
|00003670| 69 72 5f 63 6f 75 6e 74 | 3b 53 70 61 63 65 53 75 |ir_count|;SpaceSu|
|00003680| 66 66 69 78 3a 20 50 72 | 6f 63 65 64 75 72 65 3b |ffix: Pr|ocedure;|
|00003690| 50 61 72 73 65 20 41 72 | 67 20 53 74 72 2c 4c 65 |Parse Ar|g Str,Le|
|000036a0| 6e 3b 64 6f 20 69 3d 31 | 20 74 6f 20 4c 65 6e 2d |n;do i=1| to Len-|
|000036b0| 6c 65 6e 67 74 68 28 53 | 74 72 29 3b 53 74 72 3d |length(S|tr);Str=|
|000036c0| 53 74 72 7c 7c 27 20 27 | 3b 65 6e 64 3b 52 65 74 |Str||' '|;end;Ret|
|000036d0| 75 72 6e 20 53 74 72 3b | 47 65 74 46 69 6c 65 42 |urn Str;|GetFileB|
|000036e0| 61 73 65 3a 20 50 72 6f | 63 65 64 75 72 65 3b 50 |ase: Pro|cedure;P|
|000036f0| 61 72 73 65 20 41 72 67 | 20 46 69 6c 65 6e 61 6d |arse Arg| Filenam|
|00003700| 65 3b 6f 6b 3d 30 3b 6c | 65 6e 3d 6c 65 6e 67 74 |e;ok=0;l|en=lengt|
|00003710| 68 28 46 69 6c 65 6e 61 | 6d 65 29 3b 69 66 20 6c |h(Filena|me);if l|
|00003720| 65 6e 3d 31 20 74 68 65 | 6e 20 6f 6b 3d 31 3b 64 |en=1 the|n ok=1;d|
|00003730| 6f 20 77 68 69 6c 65 20 | 6f 6b 3d 30 26 6c 65 6e |o while |ok=0&len|
|00003740| 3e 30 3b 69 66 20 73 75 | 62 73 74 72 28 46 69 6c |>0;if su|bstr(Fil|
|00003750| 65 6e 61 6d 65 2c 6c 65 | 6e 2c 31 29 3d 27 2e 27 |ename,le|n,1)='.'|
|00003760| 20 74 68 65 6e 20 64 6f | 3b 46 69 6c 65 6e 61 6d | then do|;Filenam|
|00003770| 65 3d 6c 65 66 74 28 46 | 69 6c 65 6e 61 6d 65 2c |e=left(F|ilename,|
|00003780| 6c 65 6e 2d 31 29 3b 6f | 6b 3d 31 3b 65 6e 64 3b |len-1);o|k=1;end;|
|00003790| 65 6c 73 65 20 64 6f 3b | 6c 65 6e 3d 6c 65 6e 2d |else do;|len=len-|
|000037a0| 31 3b 65 6e 64 3b 65 6e | 64 3b 72 65 74 75 72 6e |1;end;en|d;return|
|000037b0| 20 46 69 6c 65 6e 61 6d | 65 3b 55 73 61 67 65 3a | Filenam|e;Usage:|
|000037c0| 3b 73 61 79 3b 73 61 79 | 20 27 20 47 69 67 61 47 |;say;say| ' GigaG|
|000037d0| 75 69 64 65 20 27 7c 7c | 58 76 65 72 7c 7c 27 20 |uide '|||Xver||' |
|000037e0| 63 72 65 61 74 65 64 20 | 62 79 20 27 7c 7c 41 75 |created |by '||Au|
|000037f0| 74 68 6f 72 7c 7c 27 20 | 2f 20 47 69 47 41 20 50 |thor||' |/ GiGA P|
|00003800| 72 6f 64 75 63 74 69 6f | 6e 73 2e 20 28 43 29 20 |roductio|ns. (C) |
|00003810| 27 7c 7c 4c 61 73 74 75 | 70 7c 7c 27 27 3b 73 61 |'||Lastu|p||'';sa|
|00003820| 79 3b 73 61 79 20 27 20 | 50 75 72 70 6f 73 65 3a |y;say ' |Purpose:|
|00003830| 20 54 6f 20 6d 61 6b 65 | 20 61 20 63 6f 6f 6c 20 | To make| a cool |
|00003840| 67 75 69 64 65 20 66 72 | 6f 6d 20 79 6f 75 72 20 |guide fr|om your |
|00003850| 41 6d 69 6e 65 74 20 64 | 6f 77 6e 6c 6f 61 64 20 |Aminet d|ownload |
|00003860| 64 69 72 2c 27 3b 73 61 | 79 20 27 20 20 20 20 20 |dir,';sa|y ' |
|00003870| 20 20 20 20 20 77 69 74 | 68 20 61 62 69 6c 69 74 | wit|h abilit|
|00003880| 79 20 74 6f 20 76 69 65 | 77 20 72 65 61 64 6d 65 |y to vie|w readme|
|00003890| 20 66 69 6c 65 73 2c 20 | 61 6e 64 20 75 6e 70 61 | files, |and unpa|
|000038a0| 63 6b 20 61 72 63 68 69 | 76 65 73 20 74 6f 20 52 |ck archi|ves to R|
|000038b0| 61 6d 3a 2c 20 61 6e 64 | 20 6d 75 63 68 20 6d 6f |am:, and| much mo|
|000038c0| 72 65 21 27 3b 73 61 79 | 3b 73 61 79 20 27 20 52 |re!';say|;say ' R|
|000038d0| 65 71 75 69 72 65 73 3a | 20 4d 75 6c 74 69 76 69 |equires:| Multivi|
|000038e0| 65 77 20 6f 72 20 61 20 | 63 6f 6d 70 61 74 69 62 |ew or a |compatib|
|000038f0| 6c 65 20 63 6c 6f 6e 65 | 2e 20 20 41 72 65 78 78 |le clone|. Arexx|
|00003900| 20 73 65 72 76 65 72 20 | 28 52 65 78 78 6d 61 73 | server |(Rexxmas|
|00003910| 74 29 20 72 75 6e 6e 69 | 6e 67 2e 27 3b 73 61 79 |t) runni|ng.';say|
|00003920| 3b 73 61 79 20 27 55 73 | 61 67 65 3a 27 3b 73 61 |;say 'Us|age:';sa|
|00003930| 79 3b 73 61 79 20 27 20 | 47 69 67 61 47 75 69 64 |y;say ' |GigaGuid|
|00003940| 65 20 3c 44 6f 77 6e 6c | 6f 61 64 20 64 69 72 3e |e <Downl|oad dir>|
|00003950| 20 5b 4f 70 74 69 6f 6e | 73 5d 27 3b 73 61 79 3b | [Option|s]';say;|
|00003960| 73 61 79 20 27 20 4f 70 | 74 69 6f 6e 73 3a 20 28 |say ' Op|tions: (|
|00003970| 45 78 61 6d 70 6c 65 73 | 20 69 6e 20 70 61 72 61 |Examples| in para|
|00003980| 6e 74 68 65 73 65 73 20 | 73 68 6f 77 73 20 74 68 |ntheses |shows th|
|00003990| 65 20 64 65 66 61 75 6c | 74 20 73 65 74 74 69 6e |e defaul|t settin|
|000039a0| 67 73 29 2e 27 3b 73 61 | 79 3b 73 61 79 20 6f 70 |gs).';sa|y;say op|
|000039b0| 3b 73 61 79 20 27 20 b7 | 20 4f 70 74 69 6f 6e 20 |;say ' .| Option |
|000039c0| 63 68 61 72 61 63 74 65 | 72 73 20 61 72 65 20 6e |characte|rs are n|
|000039d0| 6f 6e 2d 63 61 73 65 20 | 64 65 70 65 6e 64 61 6e |on-case |dependan|
|000039e0| 74 20 28 20 2d 63 20 3d | 20 2d 43 20 29 2e 27 3b |t ( -c =| -C ).';|
|000039f0| 73 61 79 3b 73 61 79 20 | 22 20 b7 20 4f 70 74 69 |say;say |" . Opti|
|00003a00| 6f 6e 73 20 63 61 6e 20 | 62 65 20 70 75 74 20 69 |ons can |be put i|
|00003a10| 6e 20 61 6e 79 20 6f 72 | 64 65 72 2c 20 62 75 74 |n any or|der, but|
|00003a20| 20 61 6c 6c 20 69 74 27 | 73 20 61 72 67 75 6d 65 | all it'|s argume|
|00003a30| 6e 74 73 20 6d 75 73 74 | 20 62 65 20 65 6e 74 65 |nts must| be ente|
|00003a40| 72 65 64 2e 22 3b 73 61 | 79 3b 73 61 79 3b 73 61 |red.";sa|y;say;sa|
|00003a50| 79 20 27 20 54 68 65 20 | 2d 47 69 47 41 2e 67 75 |y ' The |-GiGA.gu|
|00003a60| 69 64 65 20 77 69 6c 6c | 20 62 65 20 70 6c 61 63 |ide will| be plac|
|00003a70| 65 64 20 69 6e 20 74 68 | 65 20 64 6f 77 6e 6c 6f |ed in th|e downlo|
|00003a80| 61 64 20 64 69 72 65 63 | 74 6f 72 79 2e 2e 2e 27 |ad direc|tory...'|
|00003a90| 3b 73 61 79 3b 73 61 79 | 20 27 20 54 68 69 73 20 |;say;say| ' This |
|00003aa0| 70 72 6f 67 61 6d 20 69 | 73 20 4d 41 49 4c 57 41 |progam i|s MAILWA|
|00003ab0| 52 45 2c 20 73 65 6e 64 | 20 62 75 67 20 72 65 70 |RE, send| bug rep|
|00003ac0| 6f 72 74 73 2c 20 63 6f | 6f 6c 20 69 64 65 61 73 |orts, co|ol ideas|
|00003ad0| 2c 27 3b 73 61 79 20 27 | 20 61 6e 64 20 79 6f 75 |,';say '| and you|
|00003ae0| 72 20 67 69 66 74 73 20 | 28 79 6f 75 72 20 6f 77 |r gifts |(your ow|
|00003af0| 6e 20 70 72 6f 67 72 61 | 6d 73 2c 20 70 69 63 74 |n progra|ms, pict|
|00003b00| 75 72 65 73 2c 20 6d 6f | 64 75 6c 65 73 29 20 74 |ures, mo|dules) t|
|00003b10| 6f 20 6d 65 20 28 45 20 | 6f 72 20 53 6e 61 69 6c |o me (E |or Snail|
|00003b20| 20 6d 61 69 6c 29 2e 27 | 3b 73 61 79 3b 73 61 79 | mail).'|;say;say|
|00003b30| 3b 73 61 79 20 27 20 4d | 79 20 45 2d 6d 61 69 6c |;say ' M|y E-mail|
|00003b40| 3a 20 20 20 20 20 66 69 | 6e 69 2e 61 6c 72 69 6e |: fi|ni.alrin|
|00003b50| 67 40 6e 65 74 6d 65 64 | 69 61 2e 64 6b 20 20 2d |g@netmed|ia.dk -|
|00003b60| 3e 20 53 75 62 6a 65 63 | 74 3a 20 47 69 67 61 47 |> Subjec|t: GigaG|
|00003b70| 75 69 64 65 20 27 7c 7c | 58 76 65 72 7c 7c 27 2e |uide '|||Xver||'.|
|00003b80| 27 3b 73 61 79 3b 73 61 | 79 20 27 20 4d 79 20 53 |';say;sa|y ' My S|
|00003b90| 6e 61 69 6c 20 6d 61 69 | 6c 3a 20 46 69 6e 69 20 |nail mai|l: Fini |
|00003ba0| 41 6c 72 69 6e 67 2c 20 | 48 f8 6a 73 67 e5 72 64 |Alring, |H.jsg.rd|
|00003bb0| 73 20 41 6c 6c e9 20 35 | 35 2c 20 32 39 30 30 20 |s All. 5|5, 2900 |
|00003bc0| 48 65 6c 6c 65 72 75 70 | 2c 20 44 65 6e 6d 61 72 |Hellerup|, Denmar|
|00003bd0| 6b 2e 27 3b 73 61 79 3b | 73 61 79 20 63 65 6e 74 |k.';say;|say cent|
|00003be0| 65 72 28 27 41 20 4d 20 | 49 20 47 20 41 20 20 20 |er('A M |I G A |
|00003bf0| 46 20 4f 20 52 20 45 20 | 56 20 45 20 52 20 21 20 |F O R E |V E R ! |
|00003c00| 21 20 21 27 2c 38 30 29 | 3b 65 78 69 74 28 30 29 |! !',80)|;exit(0)|
|00003c10| 3b 72 65 74 75 72 6e 3b | 41 72 67 48 61 6e 64 6c |;return;|ArgHandl|
|00003c20| 65 72 3a 3b 41 72 67 5f | 53 74 72 3d 41 72 67 28 |er:;Arg_|Str=Arg(|
|00003c30| 31 29 3b 41 72 67 5f 53 | 74 72 2e 6c 65 6e 67 74 |1);Arg_S|tr.lengt|
|00003c40| 68 3d 4c 65 6e 67 74 68 | 28 41 72 67 5f 53 74 72 |h=Length|(Arg_Str|
|00003c50| 29 3b 69 66 20 41 72 67 | 5f 53 74 72 2e 6c 65 6e |);if Arg|_Str.len|
|00003c60| 67 74 68 3d 30 20 74 68 | 65 6e 20 72 65 74 75 72 |gth=0 th|en retur|
|00003c70| 6e 20 30 3b 41 72 67 5f | 50 6f 73 3d 30 3b 41 72 |n 0;Arg_|Pos=0;Ar|
|00003c80| 67 2e 3d 27 27 3b 41 72 | 67 5f 4e 75 6d 3d 30 3b |g.='';Ar|g_Num=0;|
|00003c90| 64 6f 20 75 6e 74 69 6c | 20 41 72 67 5f 50 6f 73 |do until| Arg_Pos|
|00003ca0| 3e 41 72 67 5f 53 74 72 | 2e 6c 65 6e 67 74 68 3b |>Arg_Str|.length;|
|00003cb0| 63 3d 27 27 3b 46 6f 75 | 6e 64 3d 30 3b 51 75 6f |c='';Fou|nd=0;Quo|
|00003cc0| 74 65 5f 4f 6e 3d 30 3b | 41 72 67 5f 4f 6e 3d 30 |te_On=0;|Arg_On=0|
|00003cd0| 3b 41 72 67 5f 4e 75 6d | 3d 41 72 67 5f 4e 75 6d |;Arg_Num|=Arg_Num|
|00003ce0| 2b 31 3b 64 6f 20 75 6e | 74 69 6c 20 46 6f 75 6e |+1;do un|til Foun|
|00003cf0| 64 3d 31 3b 41 72 67 5f | 50 6f 73 3d 41 72 67 5f |d=1;Arg_|Pos=Arg_|
|00003d00| 50 6f 73 2b 31 3b 63 3d | 73 75 62 73 74 72 28 41 |Pos+1;c=|substr(A|
|00003d10| 72 67 5f 53 74 72 2c 41 | 72 67 5f 50 6f 73 2c 31 |rg_Str,A|rg_Pos,1|
|00003d20| 29 3b 73 65 6c 65 63 74 | 3b 77 68 65 6e 20 63 3d |);select|;when c=|
|00003d30| 27 22 27 26 51 75 6f 74 | 65 5f 4f 6e 3d 30 20 74 |'"'&Quot|e_On=0 t|
|00003d40| 68 65 6e 20 64 6f 3b 51 | 75 6f 74 65 5f 4f 6e 3d |hen do;Q|uote_On=|
|00003d50| 31 3b 65 6e 64 3b 77 68 | 65 6e 20 63 3d 27 22 27 |1;end;wh|en c='"'|
|00003d60| 26 51 75 6f 74 65 5f 4f | 6e 3d 31 20 74 68 65 6e |&Quote_O|n=1 then|
|00003d70| 20 64 6f 3b 51 75 6f 74 | 65 5f 4f 6e 3d 30 3b 65 | do;Quot|e_On=0;e|
|00003d80| 6e 64 3b 77 68 65 6e 20 | 63 3d 27 20 27 26 51 75 |nd;when |c=' '&Qu|
|00003d90| 6f 74 65 5f 4f 6e 3d 30 | 26 41 72 67 5f 4f 6e 3d |ote_On=0|&Arg_On=|
|00003da0| 31 20 74 68 65 6e 20 64 | 6f 3b 46 6f 75 6e 64 3d |1 then d|o;Found=|
|00003db0| 31 3b 65 6e 64 3b 77 68 | 65 6e 20 63 3d 27 20 27 |1;end;wh|en c=' '|
|00003dc0| 26 51 75 6f 74 65 5f 4f | 6e 3d 30 26 41 72 67 5f |&Quote_O|n=0&Arg_|
|00003dd0| 4f 6e 3d 30 20 74 68 65 | 6e 20 64 6f 3b 6e 6f 70 |On=0 the|n do;nop|
|00003de0| 3b 65 6e 64 3b 77 68 65 | 6e 20 63 3d 27 20 27 26 |;end;whe|n c=' '&|
|00003df0| 41 72 67 5f 50 6f 73 3e | 3d 41 72 67 5f 53 74 72 |Arg_Pos>|=Arg_Str|
|00003e00| 2e 6c 65 6e 67 74 68 20 | 74 68 65 6e 20 64 6f 3b |.length |then do;|
|00003e10| 46 6f 75 6e 64 3d 31 3b | 65 6e 64 3b 6f 74 68 65 |Found=1;|end;othe|
|00003e20| 72 77 69 73 65 20 64 6f | 3b 41 72 67 2e 41 72 67 |rwise do|;Arg.Arg|
|00003e30| 5f 4e 75 6d 3d 41 72 67 | 2e 41 72 67 5f 4e 75 6d |_Num=Arg|.Arg_Num|
|00003e40| 7c 7c 63 3b 41 72 67 5f | 4f 6e 3d 31 3b 65 6e 64 |||c;Arg_|On=1;end|
|00003e50| 3b 65 6e 64 3b 65 6e 64 | 3b 65 6e 64 3b 72 65 74 |;end;end|;end;ret|
|00003e60| 75 72 6e 20 41 72 67 5f | 4e 75 6d 0a 2f 2a 20 4f |urn Arg_|Num./* O|
|00003e70| 72 69 67 69 6e 61 6c 20 | 73 63 72 69 70 74 3a 20 |riginal |script: |
|00003e80| 38 34 37 20 6c 69 6e 65 | 73 2c 20 32 30 31 35 30 |847 line|s, 20150|
|00003e90| 20 62 79 74 65 73 2c 20 | 63 6d 70 72 61 74 65 20 | bytes, |cmprate |
|00003ea0| 32 34 2e 31 25 20 2a 2f | 0a 00 00 00 00 00 03 f2 |24.1% */|........|
+--------+-------------------------+-------------------------+--------+--------+
